Select Code to Download

if ($^X ne "perl") {

...
        print ("to start this program.\n");

}

$path = `which perl`;
print $path;
/usr/bin/perl

#!/usr/bin/perl

./pgm