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