$ cat uhoh
#!/usr/bin/perl -i.bak e die(666)
1;

$ perl uhoh
Can't emulate -e on #! line at uhoh line 1.


##</code><code>##

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

##</code><code>##

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