open my $file, "<", $filename # use lexical variable

open FILE, "<", $filename # use bareword.

##</code><code>##

sub foo {
  my ($filename) = @_;
  open my $file,  "<", $filename or die "blah :$!\n";
  while (<$file>) {
    # etc
  }
  # explicit call to close not needed.
}