$ cat fred.pl
#!/usr/bin/env perl
use Cwd qw{abs_path};
print "Perl executing the script: ", `which $^X`;
print "Script being executed: ", abs_path($0), "\n";
print "PID: $$\n";

##</code><code>##

$ fred.pl
Perl executing the script: /Users/ken/perl5/perlbrew/perls/perl-5.14.2_WITH_THREADS/bin/perl
Script being executed: /Users/ken/tmp/fred.pl
PID: 33980

##</code><code>##

use English qw{-no_match_vars};