my $fh = IO::File "output.txt", "w"
   or die "Can not create output: $!";
print $fh "Hello world!\n";
undef $fh;