Select Code to Download

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

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

sub foo {
  my ($filename) = @_;
...
  }
  # explicit call to close not needed.
}