Select Code to Download

use warnings;
use subs qw/ open /;
...
  
}
1;

use lib "d:\\";
use open_temp; 
open(SEL);
print <SEL>;