#!/usr/bin/perl -w
use strict;
use diagnostics;
use Data::Dumper;
my $server="rprint1";
my $num = qx{/usr/bin/lpstat -h $server -W not-completed|wc -l};
print Dumper "$num";


my $server1='rlinux1';
my $num2 = qx{/usr/bin/lpstat -h $server1 -W not-completed|wc -l};
print Dumper "$num2";