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