package test111;

sub do_open {
   # ./datei gibt es nicht
   open my $FH,'<','./datei' or return;
}

1;