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

class Main {
    say '1..2';
    my $a = do { 3 };
    say 'ok 1 - do block';
    if $a != 3 {
        print 'not '
    }
    say 'ok 2 - do value';
}