Select Code to Download

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

print STDOUT "This will print";