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