#!/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