if ($^X ne "perl") {

        print ("You did not use the 'perl' command ");

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

}

##</code><code>##

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

##</code><code>##

#!/usr/bin/perl

##</code><code>##

./pgm