[me@host]$ perl -le 'print 1 if (0) or warn 3';
3 at -e line 1.
1