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