my $num = () = qx{/usr/bin/lpstat -h $server -W not-completed};

##</code><code>##

print "number is: $num\n";