I usually do something (purely cosmetic) like:

use strict;
use warnings;

my $outfilename = "outfilename.txt";

# Use a variable for the outfile handle
my $ofh;       

open($ofh, ">$outfilename") or die qq(Couldn't open file "$outfilename
+" for writing\n);

... insert more code here

close $ofh;
[download]