Select Code to Download

#!/usr/bin/perl -w
$log_file = "logfile";
...
open(STDOUT,">&OLDOUT");
print "done\n";
close(OLDOUT);

*Write Testing 1.2.3... to STDOUT and log_file 
*Write done to STDOUT (but NOT log_file)