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