Select Code to Download

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

#!/usr/bin/perl
use strict;
...
# I love ar0n :)
my $thing = do { local @ARGV = "foo.txt"; <> };
print $thing;