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

##</code><code>##

store($data, $file);
close $fh;