#!/usr/bin/perl
use strict;
use warnings;
print "before IO redirection\n";
close STDOUT;
open STDOUT, ">", "/log/foo" or die $!;
print "after IO redirection\n";


##</code><code>##

perl the_script.pl >/log/foo