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