my $p="ho8dIXKikSTi2"; #better than displaying actual password
my $password=param('password');

my $salt = substr($p,0, 2);
my $crypted = crypt($p, $salt);

if ($p eq $crypted) {
 #it worked
} else {
  #try again
}