Estoy leyendo la documentación de HTML::Form y me gustaría probar a extraer los formularios de una página web más o menos así:
Using perl Syntax Highlighting
my $ua = LWP::UserAgent->new;
my $response = $ua->get("http://www.example.com/form.html");
my @forms = HTML::Form->parse($response);
my $response = $ua->get("http://www.example.com/form.html");
my @forms = HTML::Form->parse($response);
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4