Select Code to Download

use Fcntl qw( LOCK_EX SEEK_SET );

...
   or die;

print $flashcount "count=$count\n";