Select Code to Download

#!/usr/bin/perl -w
use strict;
...
my $server1='rlinux1';
my $num2 = qx{/usr/bin/lpstat -h $server1 -W not-completed|wc -l};
print Dumper "$num2";

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

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

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