use LWP;
my $browser = LWP::UserAgent->new;
  
my $url = 'http://www.cpan.org/RECENT.html';
my $response = $browser->get($url);

die "Can't get $url -- ", $response->status_line
   unless $response->is_success;
  
my $html = $response->decoded_content;
  while( $html =~ m/<A HREF=\"(.*?)\"/g ) {
    print "$1\n";
	print URI->new_abs( $1, $response->base ) ,"\n\n";

}

WaitForKey();

sub WaitForKey() {
    print "\nPress any key to continue...";
    chomp($key = <STDIN>);
}