#! /usr/bin/perl

    use HTML::Form;
    use HTTP::Request;
    use LWP;

    my $ua = new LWP::UserAgent;
    my $uri="http://www.google.com";
    my $req = HTTP::Request->new(GET => $uri);
    my $res = $ua->request($req);
    print $res->content;
    my $form = HTML::Form->parse($res->content, $res->base());
    print "Form: ${form}\n";

##</code><code>##

        join(" ", $form->form);