my ($filename) = shift @ARGV;

open (my $fh, '<', $filename) or die "Datei '$filename' nicht gefunden";