open (my $DATEI, "<", $druck) or die "Datei konnte nicht geoeffnet werden: $!";
while (my $line = <$DATEI>) {