$ 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