if ($^X ne "perl") {

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

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

}