my $resp = $mech->response();
 my $root = HTML::TreeBuilder->new_from_content( $resp->content );
 #The next part is to grab the link element, it is a hack job, I wasn't able to get both tag-> a and title eq 'Next Page' in one line, which would be cleaner.
   
 my @a_tags = $root->look_down( '_tag' , 'a' );
    foreach my $atag(@a_tags){
    
      my $temp =  $atag->as_HTML;
     if($temp =~ 'title="Next Page"'){
     $a = $atag;
     }
     }
#This is code from the CPAN website for the module
#It was noted to use an ->httpResponse, which doesn't exist
#Since the response is the result of the request I have replaced it with 
     my $aspnet = HTML::TreeBuilderX::ASP_NET->new({
                element   => $a
                , baseURL =>$mech->uri ## takes into account posting redirects
        });
   my $response = $mech->request($aspnet->httpRequest);
        my $content = $response->content;
        print $content;
# I wanted to see if I got the proper html content