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