my $c = $agent->content;
# my $target
if ($c =~ m!<meta\s+http-equiv=['"]refresh["']\s+content="\d+;([^"]+)"!si) {
    warn "Refresh found (-> $1), following";
    my $target = $1;
    $c->get($target);
};