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/@/\\@/;