Select Code to Download

      foreach my $k ( keys %master ) {
         while ( my $line=<$foundfile> ) {

sub searchfile {
...
         close $foundfile;         
      }
}

sub searchfile {
...

    close $foundfile;         
}