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

open (SAVEOUT, ">&STDOUT") or die "Unable to save STDOUT : $!";
open (STDOUT, ">my_log") or die "Error with redirecting STDOUT : $!";
# More code passes
open (STDOUT, ">&SAVEOUT") or die "Unable to restore STDOUT : $!";