Select Code to Download

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

sub user_input_http {
    my $web_page = shift;
...
    my %params = &parse_cgi_params; # or whatever
}