Alex,

Try this

use Printer;
use Data::Dumper;

 my    $prn = new Printer('linux' => 'lp', 
                        'MSWin32' => 'LPT1' );
 my  %data = $prn->list_printers;

print Dumper %data;
[download]

Data::Dumper has been an valuable tool for me.

Kristofer A. Hoch