Select Code to Download

use autodie;
use Fcntl qw[:DEFAULT :seek];
...
truncate $fh;
print $fh $count + 1;
close $fh;