use strict;
use warnings;

my $datei=$ARGV[0];

open( DATEI, "< $datei" ) or die "Test- Datei konnte nicht geoeffnet werden: $!\n";

close DATEI;