Select Code to Download

sub checkPassword { # no parens () here - why a prototype?

...
    }
    1;
}

if ( checkPassword($user,$pass) ) {
    # success or failure here?
} else {
    ...
}