open HANDLE, ">temp.tmp" || die;
$desired_size=1000000;
seek HANDLE, 0, $desired_size -1;
print HANDLE "\0";
seek HANDLE, 0, 0;
close HANDLE;