Select Code to Download

my $url = "http://www.nukeforums.com/forums/viewforum.php?f=17";
my $ua = LWP::RobotUA->new;
...
foreach my $page (@links) {
    ...
}

my $ua = LWP::RobotUA->new;
my $lp = HTML::LinkExtor->new(\&wanted_links);
...
        ...
    }
}

#!/usr/bin/perl
use strict;
...
    my $base = $response->base;
    return [ map { url($_, $base)->abs } @links ];
}