Select Code to Download

require 5.006; # needs recent perl for three-argument open
my $infile = 'addys.txt';
...
  close( FH );
} # exit scope
# FH is not visible here.

.