my $foo = user_input("Enter foo:");
my $bar = user_input("Enter bar:");
print "foo x bar is " . $foo * $bar;
sub user_input {
	print shift;
	return chomp <>;
}

##</code><code>##

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
}