#!/usr/bin/perl -w
$log_file = "/home/privera/perl/logfile";
open(STDOUT, "| tee $log_file");
print "Testing 1.2.3...\n";
close(STDOUT);
<lines to try below...>

##</code><code>##

open(STDOUT, ">&SAVEOUT");       
print STDOUT "I'm done\n";       
close(STDOUT);

##</code><code>##

open(STDOUT);
print "I'm done\n";
close(STDOUT);

##</code><code>##

print on closed filehandle main::STDOUT at write2.pl line 7.