use Digest::SHA; my $pw = Digest::SHA::sha256($password); my $pwc = Digest::SHA::sha256($passwordconfirm);