my $count = 0;
print "entering loop with count=$count\n";
while (1) {
	print "before testing, count=$count\n";
	last unless $count < 10;
	print "before incrementing, count=$count\n";
	$count += 1;
	print "count is now $count\n";
}
print "exited loop with count=$count\n";