use warnings;
use strict;

my $i;
do {
	print ++$i;
	last if ($i == 10);
} until (0);