open(JUNK, ">junk.txt") or die;

print "this is going to stdout\n";

select JUNK;

print "this is going to junk\n";

select STDOUT;

print "this is again going to stdout\n";