C:\>type test.pl
sub open_file_handle { open FILE, ">c:/test.txt" or die $! }
open_file_handle();
print FILE "This file handle is not closed!" or die $!

C:\>perl test.pl

C:\>type test.txt
This file handle is not closed!
C:\>

##</code><code>##

open my $fh, $file or die $!;