perl -e 'if(shift){eval{BEGIN{print"eek\n"}print"ahh\n"}}' 0
perl -e 'if(shift){eval{BEGIN{print"eek\n"}print"ahh\n"}}' 1
perl -e 'if(shift){eval"BEGIN{print\"eek\n\"}print\"ahh\n\""}' 0
perl -e 'if(shift){eval"BEGIN{print\"eek\n\"}print\"ahh\n\""}' 1