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";