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