open ($lpr, "| lpr") or die "Fehler beim Drucken: $!";
print $lpr "Das ist ein Text\n";
close $lpr or die "Fehler beim Drucken: $!";