sub Get_formvalues()
{
my (%ReturnVariable);

	if (($ENV{'REQUEST_METHOD'} eq "GET") || ($ENV{'REQUEST_METHOD'} eq "POST"))
	{
		my @keywords = $query->param;

		foreach my $name (@keywords)
		{
			my @values = $query->param($name);

			foreach my $value (@values)
			{
				if ($ReturnVariable{$name})
				{
					$ReturnVariable{$name} .= "\n$value";
				}
				else
				{
					$ReturnVariable{$name} = $value;
				}
			}
		}
	}

	return (%ReturnVariable);
}