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