open(my $ptrh, '>', "/dev/lp0") or die("Error open Printer-Port 0 ($!)\n");
print "Das ist ein Test\n";
close($ptrh);