Select Code to Download

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

$ 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

use English qw{-no_match_vars};