truncate $fh, 0;
seek $fh, 0, 0;
store_fd($data, \*$fh);
close($fh);