The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.


Device::CableModem::Zoom5341J - Read info from Zoom 5341J cable modem


  use Device::CableModem::Zoom5341J;
  my $cm = Device::CableModem::Zoom5341J->new;


This module lets you automate grabbing various information (primarily, signal stats) from the Zoom 5341J DOCSIS 3 cable modem. It doesn't work for the "plain" 5341 G or H models, only J; see the Device::CableModem::Zoom5341 module for them.



First you need an object to work with

  # Create an object with the defaults
  my $cm = Device::CableModem::Zoom5341J->new;

  # Set non-default IP or hostname
  my $cm = Device::CableModem::Zoom5341J->new(modem_addr => '');
  my $cm = Device::CableModem::Zoom5341J->new(modem_addr => '');

  # Set non-default login/password info
  my $cm = Device::CableModem::Zoom5341J->new(
    username => 'bob',
    password => 'bobbysekrit',

Bare IP's, names from /etc/hosts, or DNS hostnames are all acceptable here. Without explicit specification, it defaults to, which is the default for this model (and most cable modems, actually). The default username/password is admin / password, which is what the modem ships with.

Login process quirks

The login process on these modems is slightly stupid. It doesn't provide much in the way of session state at all; as far as I can tell, it just keeps an internal list of what IP(s) have successfully logged in, and allows access from them for a limited time. A very limited time, in fact; on the order of single-digit minutes. As a result, the module always sends every fetch request as a login, and then a fetch, no matter how long it's been since the last login.

Simple Stats

  my $downstream_stats = $cm->get_down_stats;
  my $upstream_stats   = $cm->get_up_stats;

The direct approach is just to grab all the downstream and/or upstream stats in a block. These methods return a hashref with a handful of keys for the various stat types. The values for each key is an arrayref containing the values for each channel available. Channels that aren't in use are undef or simply not present.

An example would help:

  $downstream_stats = {
    chanid => [        1,         2,         3,         4],
    freq   => [    12345,     23456,     34567,     45678], # Hz
    snr    => [     35.8,      36.5,      38.9,      36.2], # dB
    power  => [      8.6,       5.4,       5.7,       3.2], # dBmV
    mod    => [ 'QAM256',  'QAM256',  'QAM256',  'QAM256']

This shows there are 4 bonded downstream channels connected. The third channel, for instance is at 34,567 Hz, with 256 QAM modulation, coming in at a power of 5.7 dBmV with a signal-to-noise ratio of 38.9 dB.

The stats upstream are a little different

  $upstream_stats = {
    chanid => [1,    undef, undef, undef],
    freq   => [4321, undef, undef, undef], # Hz
    bw     => [345,  undef, undef, undef], # Ksym/sec
    power  => [45,   undef, undef, undef]  # dBmV

Here we see that we only have a single active upstream channel. It's at 4321 Hz, with a bandwidth of 345 Hz, and we're shouting at 45 dBmV.

Note: Don't mistake the 'bandwidth' value there as referring to a data rate. It's the signal width of the channel.

More Precise Stats

Of course, sometimes you may want only one or two bits of info, and it's simpler to just grab what you want.

  my $dchan  = $cm->get_down_chanid;
  my $dfreq  = $cm->get_down_freq;
  my $dmod   = $cm->get_down_mod;
  my $dpower = $cm->get_down_power;
  my $dsnr   = $cm->get_down_snr;

In these cases, you're getting just the arrayrefs.

  $dfreq  = [12345, 23456, 34567, 45678];
  # etc

And similarly for the upstream

  my $uchanid = $cm->get_up_chanid;
  my $ufreq   = $cm->get_up_freq;
  my $ubw     = $cm->get_up_bw;
  my $upower  = $cm->get_up_power;

  $uchanid = [1, undef, undef, undef];

Fetching From The Modem

The info isn't actually fetched from the modem when you instantiate the object. The page is grabbed, parsed, and cached automatically when you make the first stat request.

  my $cm = Device::CableModem::Zoom5341J->new;
  my $dpower = $cm->get_down_power; # Auto-fetched during this

And that HTML and parsed data is kept around and re-used when you make later $cm->get_whatever calls. So there's no significant overhead to making lots of get_'s; they're just method calls, not network data traffic.

Usually, that's all you need. However, you may want to cause a fetch yourself sometimes. So you can do that:

  $cm->fetch_data;   # Does the fetch and caches up the HTML

If you're just running a one-time grab, you won't need to do that. However, if you're instead doing a long-running program that needs to refresh the data, you'll need to run ->fetch_data any time you want to pull new data instead of just returning the stuff you've got from last time.

For instance, if you have your own functions to store stats in a database of some kind, and you want to pull numbers every 5 minutes continually, you could make a loop something like:

  my $cm = Device::CableModem::Zoom5341J->new;
    sleep(5 * 60);

Additional Internals

There are various other methods available internally, but you shouldn't need to poke at them yourself. In particular, the tests in the distribution have a lot of knowledge of the internals, so anything in there that isn't described here is probably coloring outside the lines. Don't go there.

If you poke under the covers anyway, any demons you wind up accidentally summoning are your own problem. Consider yourself forewarned. Forewarned is forearmed, and you'd look pretty silly with four arms, so you should probably stick with this documented API.


There are various bits of information available through the web interface that this module doesn't support fetching. In fact, I haven't written fetching for anything except the DOCSIS network stats (up- and down-stream signal information). Stuff like software version, assigned IP's, log messages, and the like are available. Maybe someday I'll have a need for them and add in the support.


Should work on 5.8 and later versions. I don't know offhand any reason it wouldn't work on 5.6, but in 2015 I can't be bothered testing it.


Matthew Fuller, <>


Copyright (C) 2015 by Matthew Fuller

This software is distributed under a 2-clause BSD license. See the LICENSE file in the distribution for details.