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