perl -e " my $f='' ; vec($f, 2**28,1)=1; "