Select Code to Download

$ cat uhoh
#!/usr/bin/perl -i.bak e die(666)
1;
...
$ perl uhoh
Can't emulate -e on #! line at uhoh line 1.

system $^X, "-i$bak", ...

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