use Fatal qw(open);
{ open my $fh, ">/tmp/irgendwas" }