Select Code to Download

 #!/usr/bin/perl -w
use strict;        
use warnings;
...
}
}
close INFILE;

 #!/usr/bin/perl -w

use strict;            
...
 print "%file\n";
}
close INFILE;