Select Code to Download

select(FILE);
print $text;
print "blah blah blah\n";

open DRILL_FILE, ">$drill_file";
open ROUT_FILE, ">$rout_file";
...
print "stuff...\n";
select(ROUT_FILE);
print "other stuff...\n";