$mech->follow_link(url_regex => qr/webgrab_path=http://evs2000.*? 
Id=d+$/, n => $result_nbr);

   #call the mechanize object, with autocheck switched off 
    #so we don't get error when bad/malformed url is requested 
    my $mech = WWW::Mechanize->new(autocheck=>0); 
    my %comments; 
    my %links; 
    my @comment; 
 
    my $target = "http://google.com"; 
    #store the first target url as not checked 
    $links{$target} = 0; 
    #initiate the search 
    my $url = &get_url(); 
 
    #start the main loop 
    while ($url ne "") 
    { 
        #get the target url 
        $mech->get($url); 
        #search the source for any html comments  
        my $res = $mech->content; 
        @comment = $res =~ /<!--[^>]*-->/g; 
        #store comments in 'comments' hash and output it on the screen, if there are any found 
        $comments{$url} = "@comment" and say "\n$url \n---------------->\n $comments{$url}" if $#comment >= 0; 
        #loop through all the links that are on the current page (including only urls that are contained in html anchor) 
 
        foreach my $link ($mech->links()) 
        { 
            $link = $link->url(); 
            #exclude some irrelevant stuff, such as javascript functions, or external links 
            #you might want to add checking domain name, to ensure relevant links aren't excluded 
 
            if ($link !~ /^(#|mailto:|(f|ht)tp(s)?\:|www\.|javascript:)/) 
            { 
            #check whether the link has leading slash so we can build properly the whole url 
            $link = $link =~ /^\// ? $target.$link : $target."/".$link; 
            #store it into our hash of links to be searched, unless it's already present 
            $links{$link} = 0 unless $links{$link}; 
            } 
        } 
 
        #indicate we have searched this url and start over 
        $links{$url} = 1; 
        $url = &get_url(); 
    } 
 
    sub get_url 
    { 
        my $key, my $value; 
        #loop through the links hash and return next target url, unless it's already been searched 
        #if all urls have been searched return empty, ending the main loop 
 
        while (($key,$value) = each(%links)) 
        { 
            return $key if $value == 0; 
        } 
 
        return ""; 
    }

http://www.address/307.html 
http://www.address/308.html 
http://www.address/309.html

use WWW::Mechanize; 
 
my $mech = WWW::Mechanize->new(); 
my $url = "here the urls go in "; 
 
$mech->cookie_jar->set_cookie(0,"start",1,"/",".test.com"); 
$mech->get($url);

foreach my $url (@urls) { 
   my $response = $ua->post($url, \%data); 
   my $result = parse_response($response); 
}

#!/usr/bin/perl 
 
 
## This is how i would go about doing what i understand about what your trying todo 
## EXAMPLE only 
 
use 5.014; 
use strict; 
use warnings; 
 
use WWW::Mechanize; 
 
my $target_url = 'http://www.google.com/'; 
my $page = 3000; 
my $format = '.html'; 
my $max_page_num = 4; 
 
 
#loop threw the pages 
for (0..$max_page_num){ 
    my $mech = WWW::Mechanize->new(); 
    $mech->agent_alias('Microsoft Mozilla'); 
     
    #this combines to make the url 
    my $url = $target_url . 'page'. "$page" . "$format"; 
     
    #get the page 
    $mech->get($url); 
     
    #get all links that match the regex 
    my @links = $mech->find_all_links(url_regex => qr//); 
     
    ###process the links and follow_link or process page. 
     
    #this makes sure the pages are processed in order 
    $page++; 
     
} 
 
 
1;