The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
# #!/usr/bin/pugs

# Checking that testing is sane: counted tests

use v6-pugs;

say '1..4';

my $counter = 1;
say "ok $counter";

$counter++;
say "ok $counter";

++$counter;
say 'ok ', $counter;

++$counter;
say 'ok ' ~ $counter;