split ('&',$Request->form->Item);
	foreach my $pair (@_) {
		my @temp = split ('=',$pair);
		$form_elements{$temp[0]} = $temp[1];
	}
	 
	foreach my $key (keys %form_elements) {
		$Response->write("$key = $form_elements{$key} <br>");
	}