C:\temp>perl -e "for (2,2) {print;warn}"
Warning: something's wrong at -e line 1.
Warning: something's wrong at -e line 1.
21

##</code><code>##

C:\temp>perl -e "print,warn for 2,2"
Warning: something's wrong at -e line 1.
Warning: something's wrong at -e line 1.
22

##</code><code>##

C:\temp>perl -e "$@='all your base are belong to us';for (2,2) {print;warn}"
all your base are belong to us  ...caught at -e line 1.
all your base are belong to us  ...caught       ...caught at -e line 1.
21