http://sulfericacid.perlmonk.org/evs/evs.pl?accountID=nKc5oWPOnaPeTHCzf&accountAD=sulfericacid@earthlink.net .

##</code><code>##

if ( $accountID && ( $accountAD ne '' ) ) {
        
        if ( exists $unv{$accountID} ) { 
        print "\$accountID found: $unv{$accountID}<br>";
            if ( $unv{$accountID} = $accountAD ) {
                $dbm{$accountAD} = $accountAD;
                delete $unv{$ID};
                print "Your address has been indexed successfully!<br>";
                print qq(Please click <a href="$url">here</a> to submit another address);
exit;
            }
            else {
                print "Registration didn't match.<br>";
                print qq(Please click <a href="$url">here</a> to resend information);
                foreach (keys %unv) {
					print "$_ => $unv{$_}<br>";
exit;
}
            }
        
        }
            else {
                print "Email address not found.  Please re-submit your details.<br>";
                print qq(Please click <a href="$url">here</a> to try again);
            exit;
            }
        }
    }