use Pointy::Counter;

my $i = counter;
while ($i --> 10)
{
  print "Counter is $i\n";
}

##</code><code>##

use Pointy::Counter;

while (ctr $i --> 10)
{
  print "Counter is $i\n";
}