my $pass = $q->param('pass');
   if ($pass ne "jerry"){
   	print "Content-type: text/html\n\n";
        print "<HTML> \n";
        print "The menu for tonight is \n";
        print $words;
        print ". \n";
        print "Hey bub, stop messin' with my menu!";
        die;
        }