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

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