Help for this page

Select Code to Download

Select or download this

use IO::File;
use Fcntl qw(:seek);
...

close $fh;
# tempfile should be gone now.