Select Code to Download

#!/usr/bin/perl
use warnings;
use strict;
...

# truncate not needed as $count is always increasing
close($cfh); # automagically releases the lock