my $response = $self->user_agent->get( $url );
return undef unless $response->is_success;
            
my $form = HTML::Form->parse(
   $response->decoded_content,
   $url
);        
$response = $self->user_agent->request( $form->click );    
    
print STDERR "\n1: ", $url, "\n2: ", $response->base, "\n3: ", $response->request->uri, "\n";

my $request = $form->click;
    
print STDERR "\n", $request->uri, "\n";