Select Code to Download

    #! /usr/bin/perl

...
    print $res->content;
    my $form = HTML::Form->parse($res->content, $res->base());
    print "Form: ${form}\n";

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