#!perl -w
use strict;

my $printer = "hplj4200to";

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

*STDOUT = *PH; #redirect STDOUT to PH

printf("Testausdruck");

print "\cL";