Grettings Monks; When using two slightly different strategies :one that involves passing the result of a Form query into a sub and one outputing the result immediately. Here's the code and the results.

#! /usr/bin/perl

use LWP;
use HTTP::Request;
use HTTP::Response;
use HTML::Form;

$con=new LWP::UserAgent;
$con->agent('n3u7digit');
$request=new HTTP::Request(GET=>"http://www.<site>.org");
$reply=$con->request($request);

@forms=HTML::Form->parse($reply);

for $formh(@forms){@keys=keys %$formh;
                        for $name(@keys){
                        print "\t---$name\n";
                        }
                   }
[download]

....the second version ..

for $formh(@forms){@keys=values %$formh;
                        for $name(@keys){
                        process($name);
                        print "--$name--\n";


}                                                                     
+           sub process{$return=shift;return $return;}
[download]

the output: CASE 1

---enctype
---action
---method
---attr
---inputs
---enctype
---action
---method
---attr
---inputs
[download]

CASE 2

--application/x-www-form-urlencoded--
--http:/<site>.org/--
--GET--
--HASH(0x84d3d4c)--
--ARRAY(0x85190e4)--
--application/x-www-form-urlencoded--
--http://<site>.org/en/video?destination=node%xxxxxx--
--POST---
--HASH(0x852232c)--
--ARRAY(0x852ac40)--
[download]

So the utility of a closure seems evident, but why?

#! /usr/bin/perl

use LWP;
use HTTP::Request;
use HTTP::Response;
use HTML::Form;

$con=new LWP::UserAgent;
$con->agent('n3u7digit');
$request=new HTTP::Request(GET=>"http://www.<site>.org");
$reply=$con->request($request);

@forms=HTML::Form->parse($reply);



for $formh(@forms){@keys=values %$formh;
                        for $name(@keys){
                        process($name);
                        print "--$name--\n";
           }
sub process{
        $return=shift;
        return $return;
        }
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.