$ perl -e'BEGIN { warn 2; BEGIN {warn 1} }'
1 at -e line 1.
2 at -e line 1.