use Printer;
 my    $prn = new Printer('linux' => 'lp', 
                        'MSWin32' => 'LPT1' );
 my  %data = $prn->list_printers;
print $data{name};
print $data{port};

##</code><code>##

my @list = \$data{name};
print @list;