Select Code to Download

#!/usr/bin/perl
use strict;
...
print "cleaning\n";
undef &Encode::encode;
sleep 5;

sub encode($$;$)
{
...
    $_[1] = $string if $check and !($check & LEAVE_SRC());
    return $octets;
}

perl -lwe 'my $code = join "", map {
   "sub foo$_ { my \$var = q(x) x 1_000_000; }" } 1..1000;
   eval $code; die if $@;
   for (1..1000) { sleep 1; "foo$_"->() }'

sub foo1 { my $var = q(x) x 1_000_000; }
sub foo2 { my $var = q(x) x 1_000_000; }
# and so forth...