use strict;
use warnings;
use HTML::Form;
use Data::Dumper;

my $html = do { local $/; <DATA> };

my $form = HTML::Form->parse($html, "http://www.google.com.au");

print Dumper($form);

__DATA__
# stick the HTML source here ...