my @envkeys= keys %ENV;
my $i;
my %request={};
for ($i=0;$i<@envkeys;$i++)
{
	if($envkey[i]=~ /^HTTP_(.*)/)
  	{
  		$request{$1}=$ENV{$envkey[i]};
  	}
}