my $cnt = 0;
...
  $cnt++;
...
print $cnt, "\n";