#!/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;

print $count_printer;