use LWP::UserAgent;
 
my $ua = LWP::UserAgent->new;
 
my $response = $ua->get('http://search.cpan.org/');

while ($response) {
  say $response->$response->as_string(); # oder mach sonstwas damit
  $response = $response->previous();
}