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

##</code><code>##

$VAR1 = 'rprint1';
$VAR1 = '2
';
$VAR1 = 'rlinux1';
$VAR1 = '3
';

##</code><code>##

print Dumper "$server";
      my $server_num_jobs = qx{/usr/bin/lpstat -h $server -W not-completed|wc -l};
      print Dumper "$server_num_jobs";

##</code><code>##

$VAR1 = 'rprint1'; $VAR1 = '0 ';
$VAR1 = 'rlinux1'; $VAR1 = '0 ';