use LWP::Simple;
my $page = 'http://www.perlmonks.org/';
$headers = head($page);
print $headers->{'_msg'}," ", $headers->{'_rc'}, "\n\n";

# have a look at the info we get back for interest sake
use Data::Dumper;
print Dumper $headers;
__DATA__
OK 200