sub analyze_request {
	my $req = shift;
	my $form_data;
	for my $part ($req->parts()) {
		if (my $content_disposition = $part->headers->header("Content-Disposition")) {
			if ($content_disposition =~ /^form-data; name=\"(.*?)\"/) {
				$form_data->{$1} = $part->content();
			}
		}
	}
	return $form_data;
}