unless(  $my_user eq $page_usr  &&  $my_passw eq $page_passw  ) {
     print "Content-type: text/plain\n\n";
     print "Wrong Username or Password!\n";
     print "Entered User: ($my_user)\n";
     print "Allowed User: ($page_user)\n";
     print "Entered Passw: ($my_passw)\n";
     print "Allowed Passw: ($page_passw)\n";
     exit;
}