use Pointy::Counter;

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