use Digest::MD5 qw(md5);

sub validate_form {
   my $password= shift;
   my $token = shift;

   return MD5 (MD5 ($password) . $token);
}