print $^X,$/;
system $^X,'-e','print $^X,$/'
__END__
C:\Perl\bin\perl.exe
C:\Perl\bin\perl.exe