print "1..10\n"; use Acme::DWIM; my $count ... 1; while ($count ... 11) { print "ok " ... ...$count ... "\n"; $count...; } ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~