$ cd /tmp
$ cat ~/foo.pl
#!/usr/bin/perl5.10
use strict;
use warnings;

open my $fh, "./datei.txt" or die "Konnte datei.txt nicht öffnen: $!";

$ cat ~/datei.txt
datei!
$ perl ~/foo.pl
Konnte datei.txt nicht öffnen: Datei oder Verzeichnis nicht gefunden at ~/foo.pl line 5.