Select Code to Download

#! /usr/bin/perl

...
                        }
                   }

for $formh(@forms){@keys=values %$formh;
                        for $name(@keys){
...

}                                                                     
+           sub process{$return=shift;return $return;}

---enctype
---action
...
---method
---attr
---inputs

--application/x-www-form-urlencoded--
--http:/<site>.org/--
...
--POST---
--HASH(0x852232c)--
--ARRAY(0x852ac40)--

#! /usr/bin/perl

...
        return $return;
        }