if (open (my $out,'>','ausgabe.txt')) {...}
else { die $! }