#!/usr/bin/perl -w
use strict;
use Win32::Printer::Enum;
use Win32::Printer::Enum qw( Jobs );

my $server = 'sfile';

my @printer = Printers([$server]);

my $count_printer = @printer;
for(my $i=0; $i < $count_printer; $i++)
{
	my $count_job = $printer[$i]{Jobs};
	my $p = $i+1;
	print "$p. printer: " . $printer[$i]{PrinterName}
        . "\n jobs: $count_job \n";
		
	my @jobs = Jobs($printer[$i]{PrinterName}, 0, $count_job);
	for(my $y=0; $y<$count_job; $y++)
	{
		my $p = $y+1;
		print " $p. job: " . $jobs[$y]{Document} . "\n";
		print "    StatusNr: " . $jobs[$y]{StatusNr} . "\n\n";
	}
}