use Win32::Printer::Enum;
 use Win32::Printer::Enum qw( Jobs );

 # Could also loop over list of servers ...
 my @printer = Printers();

 foreach my $p (@printers)
 {
   @jobs = Jobs($p->{PrinterName}, 0, 1);
   print $p->{PrinterName}, " Queue:\n";
   foreach my $j (@jobs)
   {
     print $j->{Document}, $j->{Status}, "\n";
   }
 }