Reading through this module's documentation clarifies what's going on.

  %printers = list_printers().
[download]

This returns a hash of arrays listing all available printers.

To get the arrays out of there, try this:

  my @printers = @{ $data{name} };
  my @ports    = @{ $data{port} };
[download]

Someone else will have to tackle the "poll a network" part of your question, though.

Cheers,
Ovid

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.