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

##</code><code>##

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