$ rm -f xx ; perl -wE'open$a,">","xx";seek$a,1048575,0;print$a "x"' ; ls -l xx
-rw-rw-rw- 1 merijn users 1048576 May  3 09:59 xx