use CGI qw(:standard);
@paramater=param();
$numberofparamaters=@paramater;
$i=0;
while ($i<$numberofparamaters)
{
@data[$i] = param(@paramater[$i]);
if (@paramater[$i] =~ /email/)
	{
	$sender=@data[$i];
	}
$i++;
}
$sender =~ s/@/\\@/;

##</code><code>##

my ($to, $from, $subject, $message) = @_;
my $sendmail = '/usr/sbin/sendmail';
open(MAIL, "|$sendmail");
print MAIL "From: $sender\n";
print MAIL "To: ???\@gmail.com\n";
print MAIL "Subject: Amapro signup\n\n";
$i=0;
while ($i<$numberofparamaters)
	{
	print MAIL "@paramater[$i]";
	print MAIL ": ";
	@data[$i] = param(@paramater[$i]);
	print MAIL @data[$i];
	print MAIL "\n";
	$i++;
	}
close(MAIL);