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;
}
[download]

This way you can tell if whitespace is your problem.

People who come to Perl from shell script often write "$var" when $var will do. If you start dealing with things like objects or other types of references, "$var" can bite you.

        - tye (but my friends call me "Tye")