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