open (FILE, ">$filename") or die "Can't open: $!";
select(FILE);
print "This will go in $filename.\n";
select(STDOUT);
print "This will go where you expect it -- STDOUT!\n";