open ($lpr, "| lpr -P printer") or die "Fehler beim Drucken: $!";