use warnings; use strict; open my $old, ">&", "STDOUT" or die $!; open STDOUT, ">", "test" or die $!; print "To file...\n"; close STDOUT or die $!; open STDOUT, ">&", $old or die $!; print "To console...\n";