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