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