my $file = 'dateiname.txt';

open my $handle, '<', $file or die "Konnte '$file' nicht oeffnen: $!\n";

...