#!/usr/bin/perl -wT

use strict;
use CGI;

my $q = new CGI;
print $q->header( "text/plain" );

print "These are the parameters I received:\n\n";

my( $name, $value );

foreach $name ( $q->param ) {
    print "$name:\n";
    foreach $value ( $q->param( $name ) ) {
        print "  $value\n";
    }
}

##</code><code>##

use CGI;

my $q = new CGI;

print $q->header( "text/html" );

if ( $q->param() ) 
{
	if( $q->param( $name ) )
	{
		if( $q->param( $email ) )
		{
			if( exists $emails{$q->param( $email )} )
			{
				print "<center><b>Email already exists in database.</b></center>\n";
			}
			else
			{
				$emails{$q->param( $email )} = "$info";
				print "<center><b>Your information was added to our system!</b></center>\n";
			}
		}  # you missed this closing brace
		else 
		{
			print "Email was missing";
			exit;
		}
	}
	else
	{
		print "Name was missing";
		exit;
	}
}