Select Code to Download

C:\test>p1
$h{ $_ } = 'x'x50 for 1 .. 10e6;;
...

print 1583106697 * 35;;
55408734395

C:\test>dir file2x
10/04/2012  17:27       369,499,228 file2x
...
C:\test>perl -nle"($k,$v)=split '\*'; $h{$k}=$v }{ print 'Check mem'; 
+<>" file2x
Check mem
3.8GB