open my $out_file, '>', 'filename.txt' or die "Ouch, $!";