Select Code to Download

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

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