Select Code to Download

perl -e"$x=chr(0);$x x=512*1024**2; <>;$r=\substr($x,256x1024**2); <>;
+substr($$r,256x1024**2-1,1)='x'; <>"

perl -e"$x=chr(0);$x x=512*1024**2; <>;$r=\substr($x, 256x1024**2); <>
+;vec($$r,2**31-1,1)=1; <>"