#!/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
}

##</code><code>##

<form name="form1" method="post" action="/foo/bar.php">
<table width="550" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td> 
        <div align="center">IMAGE</div>
    </td>
  </tr>
  <tr> 
    <td> 
        <div align="center"> 
        <table width="550" border="0" cellspacing="0" cellpadding="0">
          <tr> 
            <td width="275"> 
            <div align="center"><span class="plaintextbold">IMAGE</span></div>
            </td>
            <td> 
                <div align="center" class="fightdamage">
                TEXT                  <br>
                <hr width="175">
                <span class="plaintextbold">TEXT: 
                1                  <br>
                </span> 
                <div align="center"><span class="plaintextbold">TEXT:</span> 
                14                  </div>
                <div align="center"><span class="plaintextbold">TEXT:</span> 
                11                  </div>
                <div align="center"><span class="plaintextbold">TEXT:</span> 
                3                  </div>
                <div align="center"><span class="plaintextbold">TEXT:</span> 
                3                  </div>
                <div align="center"><span class="plaintextbold">TEXT:</span> 
                15                  </div>
                <div align="center"><span class="plaintextbold">TEXT:</span> 
                16                  </div>
                <div align="center"><span class="plaintextbold">TEXT:</span> 
                16                  </div>
                <div align="center"><span class="plaintextbold">TEXT:</span> 
                0                  </div>
                <div align="center"><span class="plaintextbold">TEXT:</span> 
                0                  </div>
                <div align="center"><span class="plaintextbold">TEXT:</span> 
                31                    / 
                31                  </div>
                <div align="center"><span class="plaintextbold">TEXT:</span> 
                0                    / 
                0                    <br>
                <hr width="175">
                </div>
                </div>
            </td>
          </tr>
    </table>
    </div>
</td>
</tr>
<tr> 
  <td> 
      <div align="center"></div>
  </td>
</tr>
<tr> 
  <td> 
      <div align="center"> 
      <hr width="550">
      <span class="plaintextbold"> <br>
      <select name="bar">
        <option>OPTION1</option>
        <option>OPTION2</option>
        <option>OPTION3</option>
      </select>
      <input type="submit" name="Submit2" value="Go!" class="login">
      <br>
      <br>
      </span></div>
  </td>
</tr>
<tr> 
  <td> 
      <div align="center">IMAGE</div>
  </td>
</tr>
<tr> 
  <td> 
      <div align="center"><br>
      </div>
  </td>
</tr>
</table>
</form>        </div>
</td>
</tr>
    

##</code><code>##

  DB<3> x @requestForms
0  HTTP::Request::Form=HASH(0x864f6b0)
   'allfields' => ARRAY(0x864fb4c)
      0  'bar'
   'base' => undef
   'buttons' => ARRAY(0x8686edc)
      0  'Submit2'
   'buttontypes' => HASH(0x8668c70)
      'Submit2' => ARRAY(0x8650b78)
         0  'submit'
   'buttonvals' => HASH(0x86828a4)
      'Submit2' => ARRAY(0x864f518)
         0  'Go!'
   'checkboxstate' => HASH(0x8682484)
        empty hash
   'debug' => undef
   'fields' => ARRAY(0x864fb34)
      0  'bar'
   'fieldtypes' => HASH(0x866bee0)
      'bar' => 'select'
   'fieldvals' => HASH(0x86805b4)
        empty hash
   'link' => '/foo/bar.php'
   'method' => 'post'
   'name' => 'form1'
   'selections' => HASH(0x8680518)
      'bar' => ARRAY(0x8650ab8)
         0  undef
         1  undef
         2  undef
   'upload' => 0