use Data::Dumper;
$email= $in{'EMAIL'};
$mserv= $in{'ELIST'};
print "Content-type: text/html\n\n<pre>\n";
print Dumper \%in;
print '</pre>';
exit;