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 <>;
}