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