gistfile1.pl

open my $fh, '| /usr/local/bin/perl'
  or die "error: $!";
print $fh $_ for <DATA>;
__DATA__
use LWP::Simple 'get';

undef $ENV{PERL5OPT};
$ENV{PATH} = '/usr/local/bin';

my $code;
sub load($) {
    $code .= get($_[0]);
}

sub run() {
    open my $fh, '| /usr/local/bin/perl' or die "error: $!";
    print $fh $code;
}

load "http://gist.github.com/raw/77600/a5cc050438853a5c432709f42e2a6abc08cb0ed0/gistfile1.txt";

run;