I am not sure wether on exists .But we could use perl to make one.
Let's cook up something simple and fast.
Modules : LWP/WWW::Mechanize.
First we perform a get on the cpan main page.

  
  use strict;
  use diagnostics;
  use WWW::Mechanize;
  my $page = WWW::Mechanize->new;
  $page->get("http://search.cpan.org/";)||die("Cannot get cpan:$!");
[download]

The "die" does the work of a status check .One could also do $page->status.
Then,if you want to make sure you have the right page ,use a regex/string on something that you expect to be in the output.
Arggh i was just getting started and noticed there was a module list on cpan
http://cpan.org/modules/00modlist.long.html
So much for lets innovate
Regards,
Chimni