use Printer;
use Data::Dumper;

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

print Dumper %data;