seek HANDLE, 0, $desired_size -1;
print HANDLE "\0";
seek HANDLE, 0, 0;