use strict;
use warnings;
my $FILE = undef;
my $filename = 'C:\tmp\blah.txt';
open( $FILE, '<', $filename ) or die "Can't open $filename: $!";
while(<$FILE>) {
  ...
}
close $FILE or die "Close failed";