I'm not sure whether there might be problems on a Windows platform, I generally use Solaris and have not had problems with implicit closing. However, I would advise the use of lexical filehandles plus the three-argument form of open and a check for success.

{
    {
        open my $fh, q{>}, q{outfile.txt}
           or die qq{open: > outfile.txt: $!\n};
        print $fh qq{ ... };
    }
}
[download]

I hope this is of interest.

Cheers,

JohnGG