system $^X "notPerl", '-le', 'print $^X'