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