#!/usr/bin/perl

use strict;

use LWP::UserAgent;

my $ua = new LWP::UserAgent;

my $req = new HTTP::Request 'HEAD' => 'http://localhost';

$req->header('Accept' => 'text/html');

my $sex_is_good = $ua->request($req);

unless (!$sex_is_good->is_success) 
  {
   print $sex_is_good->as_string;
  }