The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

use Test::More tests => 10;
use Pointy::Counter;

my $i = counter;
my $j = 0;
while($i --> 10)
{
	$j++;
	is($i, $j);
}