Select Code to Download

 use HTML::Form;
 $form = HTML::Form->parse($html, $base_uri);
...

 use LWP;
 LWP::UserAgent->new->request($form->click);