$t  = "perlperlperlperlperlperlperlperlperlperlperlperlPP" x 20000; #1 MB
for (0..100) {$t3 .= $t;}
system('pause');
undef($t3);
undef($t);
system('pause')