This is a snippet:

if(param()){
    my $email   = param('email');
    my $name    = param('name');
    my $update  = param('update');
    my $add1 = param('add1');
    my $add2 = param('add2');
    my $city = param('city');
    my $zip  = param('zip');
    my $country = param('country');
    
    if($name)
       {
        if($email)
              {
            if(exists $emails{$email})
                     {
                    print "<center><b>Email already exists in database
+.</b></center>\n";
             }
             else
                     {

                                  my $info = join("::", $name, $add1, 
+$add2, $city, $zip, $country);

                                  $emails{$email} = "$info";
                    print "<center><b>Your information was added to ou
+r system!</b></center>\n";
                    
               }
        else 
              {
                     print "Email was missing";
                     exit;
              }
}
}
[download]