@forms2 = HTML::Form->parse( $text, "here.com");
$d2 =  Data::Dumper->new( \@forms2 );
print $d2->Dump;