use LWP::UserAgent;
use HTML::Form;
my $ua = LWP::UserAgent->new;
my $response = $ua->get("http://www.hellp.com/test.exe");
my @forms = HTML::Form->parse($response->content,
$response->base);
foreach $form(@forms)
{
@names = $form->param;
foreach $name(@names)
{
@values = $form->param( $name );
foreach $values(@values)
{
print "Name:$name Value of:$values \n";
}
}
#print "$form \n";
}