use 5.010;

sub cnt{ 
   state $c;
   $c++;
}