Select Code to Download

#!/usr/bin/perl -w

...
  print "$form\n"; # hash...awesome!
  #do something
}

<form name="form1" method="post" action="/foo/bar.php">
<table width="550" border="0" cellspacing="0" cellpadding="0" align="c
+enter">
...
</td>
</tr>

  DB<3> x @requestForms
0  HTTP::Request::Form=HASH(0x864f6b0)
...
         1  undef
         2  undef
   'upload' => 0