my $printer = "hplj4200to";
open (PH, ">$printer") or 
	die "Can't open printer '$printer': $!\n";