perl -e 'print "a"; BEGIN { print "b"; BEGIN { print "c" }}'