$ARGV[0] =~ /^-P(\w+)$/;
$printer = $1;		# Not tainted
