{
   package Cow;
   my $i;
   sub moo { print(("moo " x ++$i), "\n"); }
}

Cow->moo();  # moo 
Cow->moo();  # moo moo 
Cow->moo();  # moo moo moo