Select Code to Download

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

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