my $filename=$ARGV[0];
# Datei lesend öffnen.
open($fh,$filename) or die "$!";