#!/Perl/bin/perl

use strict;
use warnings;
use FindBin qw/$Bin/;

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