#!/usr/bin/perl -w
use strict;

print "foo bar\n"; # Goes to screen

open (STDOUT, ">my_log") or die $!;
print "foo bar\n"; # Goes to Log

open (STDOUT,">&=1") or die $!;  
print "foo bar\n"; # Hoped it went to screen, but goes to log

##</code><code>##

#!/usr/bin/perl -w
use strict;

print "foo bar\n"; # Goes to screen

open (STDOUT, ">my_log") or die $!;
print "foo bar\n"; # Goes to Log

close STDOUT; # Gone forever

open (STDOUT,">&=1") or die $!; # death - goodbye cruel world

##</code><code>##

#!/usr/bin/perl -w
use strict;

print "foo bar\n"; # Goes to screen

open (STDOUT, ">/my_log"); # Don't have write permission to /
print "foo bar\n"; # Goes to screen since it is preserved