perl6 -e 'my $c; BEGIN { $c = 1 }; say $c;'
1

##</code><code>##

perl6 -e 'my $c; BEGIN $c = 1; say $c;'
1

##</code><code>##

perl6 -e 'my $c = BEGIN  3 - 2; say $c;'
1

##</code><code>##

perl6 -e 'my $c; say $c; BEGIN $c = 1'
1

##</code><code>##

perl6 -ne 'my $c; BEGIN {$c = qw<while say>.Set}; my $line = $_; $line.say if $_ (elem) $c for $line.words' while_done.pl6
while True {
    say $line;
say 'Done!';

##</code><code>##

perl6 -ne 'my $c = BEGIN qw<while say>.Set; my $line = $_; $line.say if $_ (elem) $c for $line.words' while_done.pl6