$CountFile = "counter";
open (COUNT, $CountFile);
$Counter = <COUNT>;

close (COUNT);
open (COUNT, ">$CountFile");

$Counter += 1;
print COUNT $Counter;
close (COUNT);
print $Counter;