Select Code to Download

unless(  $my_user eq $page_usr  &&  $my_passw eq $page_passw  ) {
     print "Content-type: text/plain\n\n";
...
     print "Allowed Passw: ($page_passw)\n";
     exit;
}