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$_"->() }'