use LWP::Simple;
sub check_httpd {
  if( get 'http://www.example.com' ){
    ...
    return 1;
  }
  ...
  return 0;