chop($count);
$count = $count + 1;
open (INF, ">$countfile");
print INF "$count\n";
close (INF);