my $counter = 0;
# (comment-out added): use vars qw($counter);