use LWP;
use HTTP::Request::Common;
my $response = LWP::UserAgent->new->
  simple_request(HEAD "http://perltraining.stonehenge.com");
unless ($response->is_error) {
  print "server: ", $response->server, "\n";
} else {
  print "error: ", $response->status_line, "\n";
}