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 = 123;

    if 1 {
        my $a = do { 3 };
        if $a != 3 {
            print 'not '
        }
        say 'ok 1 - if block';
    }

    if $a != 123 {
        print 'not '
    }
    say 'ok 2 - if block # ', $a;
}