$ perl  -e warn(1); -e die(2);
1 at -e line 1.
2 at -e line 2.