Help for this page

Select Code to Download


  1. or download this
    my @forms = HTML::Form->parse($res);
@forms = grep{$_->attr('name') eq 'adv_search_form'} @forms;
my $form = shift @forms;

 my $req = $form->make_request;
  2. or download this
    my $referer = $res->request->uri;
my $uri = $res->request->uri;
...
$headers->header(referer => $referer);
my $req = HTTP::Request->new('GET', $url2, $headers);
return $req;