open($in,"<",$m) or die "Datei $m kann nicht geöffnet werden $!";