$counter = 0; use vars qw($counter);