Help for this page
my $num = () = qx{/usr/bin/lpstat -h $server -W not-completed};
print "number is: $num\n";