$oldFH = select(NOTHING);
do "filename.txt";
print "Won't Print\n";
select($oldFH);
print "Will Print\n";