BEGIN{
    open(STDOUT,">stdout.log")||die"$!";
}
##</code><code>##

#!/usr/bin/perl
use strict;

open(LOG,"log.txt") ||die"$!";
select LOG;

#...do stuff here
close LOG;

select STDOUT; 
# I love ar0n :)
my $thing = do { local @ARGV = "foo.txt"; <> };
print $thing;