Select Code to Download

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

#!/usr/bin/perl -w
use strict;

...
print "The menu has been updated for you. \n";
print "The menu for tonight is \n";
print "$words. \n";