perl -le "BEGIN: { print 'LABEL: block' }; BEGIN{ print 'BEGIN block'} "