#! perl
open OUTFILE, '>', 'test_out.txt' or die "Error writing to test_out.txt $!";
print OUTFILE "Hello\n";
print OUTFILE "world\n";
close OUTFILE;