use strict;
my $fh;
open ( $fh, "> /tmp/out") or die $!;
print $fh "hallo";
close($fh);
exit 0;