sub user_input_http {
	my $web_page = shift;

	# print HTTP header...

	print $web_page; # presumably with a form

	my %params = &parse_cgi_params; # or whatever
}