use CGI qw(:standard);
my $email = param('email');