#!/usr/bin/perl -w
$log_file = "logfile";
open(STDOUT, "| tee $log_file") or die "Can't open: $!\n";
print "Testing 1.2.3...\n";
close(STDOUT) or die "Can't close: $!\n";
open(STDOUT,'>-');
print "done\n";
close(STDOUT);