...

my $pass = (getpwnam($login))[1];

if (crypt($password, $pass) eq $pass) {

  ## The user supplied the correct password

}
else {

  ## The user supplied a wrong password

}

...