This is an update of the changes I've made based on your suggestions. Still no change in output however :(

#!/usr/bin/perl -w

use strict;
use CGI::Carp qw(fatalsToBrowser);
use CGI;
use POSIX;
require SDBM_File;

#
# Define our constants
#

my $sendmail = "/usr/lib/sendmail";
my $adminmail = "test\@test.com";
my($verified, $unverified, $ID);
my @chars = ( "A" .. "Z", "a" .. "z", 0 .. 9, qw(! @ $ % ^ & * ) );

#
# Define our dynamic input
#
my $query = CGI->new;
print $query->header;
my %form = %{$query->Vars};
my $accountID = $query->url_param('accountID');
my $accountAD = $query->url_param('accountAD');
my (%dbm1, %dbm2);
my $dbm1 = "unverified.dbm";
my $dbm2 = "verified.dbm";

tie (%dbm1, 'SDBM_File', $dbm1, O_CREAT|O_RDWR, 0644)
   || die "Died tying database\nReason: $!\n";
   
tie (%dbm2, 'SDBM_File', $dbm2, O_CREAT|O_RDWR, 0644)
   || die "Died tying database\nReason: $!\n";   

#
# If form was completed generate an ID, store them to database, email 
+user
#

if ($form{'usermail'}) {
&generate_id;
&email;
  print "An email has been sent to $form{'usermail'} for verification.
+<br><br>\n";
$dbm1{$form{'usermail'}} = "$accountID";
}

#
# Or if url param's are present and checked add them to other DB and r
+emove them from $unverified
#

else {   
   my $unverified = $accountID;
   my $verified = "$accountAD";
   if ($dbm1{"$accountAD"} && $dbm1{"$accountID"} =~ /^$accountAD$/) {
 $dbm2{"$verified"} = "$accountAD";
      print "You have been added to the mailing list successfully!\n";
   } else {
      print "Registration failed!<br><br>\n";
      print "\$accountID: $accountID .<br>\n";
      print "\$accountAD: $accountAD .<br>\n";
   }
}

sub email {
$accountAD = "$form{'usermail'}";

open (MAIL, "|$sendmail -t") or die "Cannot access mail";
  print MAIL "To: $form{'usermail'}\n";
  print MAIL "From: $adminmail\n";
  print MAIL "Subject: Verify your Email Address\n\n";
  print MAIL "http://sulfericacid.perlmonk.org/evs/revised.pl?accountI
+D=$accountID&accountAD=$accountAD\n";
close (MAIL);
}

sub generate_id {
do { $accountID = join '', map { $chars[ rand @chars ] } 1..17; } 
while grep {$_ eq $ID} my @used;
  print $ID;

# my @unverified_emails=($form{'usermail'}, $accountID);
# $unverified = join "::",@unverified_emails;
#$dbm{"$unverified"}= join "::",@unverified_emails;
#foreach my $mail (split /::/, $dbm{'notverified'}) {
#  print "$mail is not verified!\n";
#}
}
untie(%dbm1);  
untie(%dbm2);
[download]

"Age is nothing more than an inaccurate number bestowed upon us at birth as just another means for others to judge and classify us"

sulfericacid

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.