#!/usr/bin/perl -w
use strict;
use diagnostics;
use Data::Dumper;

##</code><code>##

my @cups_num_jobs_cmd=("/usr/bin/lpstat ", "-h", $server, "-W not-completed");
print Dumper "cmd = @cups_num_jobs_cmd";
my @cups_num_jobs=system(@cups_num_jobs_cmd);
print Dumper "cups_jobs =  @cups_num_jobs";
$server_num_jobs=scalar(@cups_num_jobs);
print Dumper "server_num = $server_num_jobs";

##</code><code>##

R_NETADMIN_NB-46        root             15360   Wed 16 Mar 2005 01:05:25 PM EST
RSPARE_NB-47            root             15360   Wed 16 Mar 2005 01:05:33 PM EST
RSPARE_NB-48            root             15360   Wed 16 Mar 2005 01:05:38 PM EST