#!/usr/bin/perl -w
use strict;
use WWW::Mechanize; 

my $maxrefreshs=5;
my $debug=0;
my @urls=(
   "http://www.whatever.xy/cgi-bin/cgi.pl?ACTION=surnames",
   "http://www.whatever.xy/cgi-bin/cgi.pl?ACTION=unisearch&MATCHSTRING=foo",
   "http://www.whatever.xy/cgi-bin/cgi.pl?ACTION=path&STARTNODE=I1&ENDNODE=I1257",
); 

my $refreshs=0;
my $mech= new WWW::Mechanize; 
foreach my $url (@urls){
   while($refreshs < $maxrefreshs){
      $mech->get($url);
      my $c=$mech->content;
      $debug and print $c; 
      if($c =~/<meta\s+http-equiv="refresh"\s+content="\d+;\s*url=([^"]*)"/mi){
         $url=($1 or $url);
         ++$refreshs;
      }else{
         last;
      }
   }
}