//This is just rough listings of my code, not exactly what it //is, I'm just listing here to show my problems

my $counter = 0;
my $sth;
my %form;
my $sql = "SELECT name,url,sub_url,pr,link_type,dir_type,cb_name,cb_value FROM free_dirs";
//Totally there are more than 1000 urls in the free_dirs table
$sth = $dbh->prepare($sql);
$sth->execute();

while ($db_row = $sth->fetchrow_hashref()) {
  my ( $name, $url, $sub_url, $pr, $link_type, $dir_type, $cb_name, $cb_value ) = @{$db_row}{qw/name url sub_url pr link_type dir_type cb_name cb_value/};
  my $timeout = 30; 
//Set timeout as 30 seconds if fetching content of a site without success
  %form = ();
  $counter ++;
  my $page_content = grab_page_content($sub_url, $timeout); //Get the content of the url
  if($page_content){
    my ($cat_name, $cat_id);
    if($dir_type eq 'PHPLD_0'){
      ($cat_name, $cat_id) = grab_cat_from_submit_page($page_content);
    }else{
      $page_content = grab_page_content($url, $timeout); 
      ($cat_name, $cat_id) = grab_cat($url, $page_content);
    }
    if(($cat_name, $cat_id)){
      //Add data to %form here for posting
      $SIG{ALRM} = sub {print "timeout"};
      my $res;
      eval{
        alarm($timeout);
        $res = $ua -> post($sub_url, \%form);
        alarm(0);
      };
      $page_content = $res->content;
      //print out the post result based on $page_content
    }
  }
}

sub grab_cat_from_submit_page{
  //Grab cat name and id here
  //This sub will not call grab_page_content function
}

sub grab_cat{
  my ($url, $page_content) = @_;
  my $timeout = 30;
  //Grab cat name and id here
  //This sub will call grab_page_content from 1 to maximum 10 times
  //I think this is the reason caused the problem
}

sub grab_page_content{
  my($url, $timeout) = @_;
  my $res;
  eval{
    local $SIG{ALRM} = sub { print "timeout"; };
    alarm($timeout);
    $res = $ua -> get($url);
    alarm(0);
  };
  $page_content = $res->content if $res->is_success;
  return $page_content;
}