foreach my $link (@all_links) {
                my $link_url = $link->url;
                next unless ( $link_url =~ /http/ );
                next if ( $link_url =~ /$url_root/ );
                warn $link_url."\n";
                my $out = $browser->get($link_url);

                #$success is 1 if a successful HTTP status code (2xx) is returned
                my $success = $out->is_success;
                ok($success, "is_success");

                #redirect is 1 if a redirection HTTP status code (3xx) was returned
                #if a redirect is seen, may need to change link to a new url
                my $redirect = $out->is_redirect;
                ok(!$redirect, "! is_redirect");

                my $error=$out->is_error;

                #print errors
                if($error){
                  my $status = $out->error_as_HTML;
                  warn "The error is:\n$status\n";
                }
        }