Select Code to Download

 if ($req) {
        # if $base is undef here, the return value is effectively
        # just a copy of $self->request->uri.
        return $HTTP::URI_CLASS->new_abs($base, $req->uri);
    }

my $url_name;
 my $base_url = "http://www.perlmonks.com/";
...
     @links = map { URI->new_abs( $_, $base_url ) } @links;
    @links = map { /^$base_url/ ? $_ : () } @links;
    @links = grep(!/$ext1|$ext2|$ext4|$ext3$/, @links);