#!/usr/bin/perl -w

use HTTP::Request::Common qw(POST GET);
use HTTP::Cookies;
use HTTP::Request::Form;
use LWP::UserAgent;
use HTML::Form;
use HTML::TreeBuilder;

open( TEST, "<test.html") or die "cannot opentest.html\n$!";

#Read in the whole file as a single string., $/ is the delimiter used, use small scope
$text = do { local $/; <TEST>};
print $text;
$tree = HTML::TreeBuilder->new;
$tree->parse( $text );
$tree->eof();

my @requestForms = HTTP::Request::Form->new_many( $tree );
$tree->delete();
#just some code to pause on while I play with the debugger.
foreach $form (@requestForms)
{
  print "$form\n"; # hash...awesome!
  #do something
}