Select Code to Download

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

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