$ cat > a.c
#include <stdio.h>
int main(int argc, char** argv) {
   printf("%s\n", argv[0]);
   return 0;
}

$ gcc -o a a.c

$ perl -e'exec { "a" } "evil"'
evil

##</code><code>##

$ perl -e'system { "perl" } "evil", "-le", "print \$^X"'
/usr/bin/perl