use LWP;
my $Browser = LWP::UserAgent->new;
$Browser->agent("Mozilla/4.0 (compatible; MSIE 5.0; Windows 98)");
$Browser->timeout(10);
my $url = 'http://perlmonks.org';
my $Response = $Browser->head($url);
if ($Response->is_success) {
#OK
} else {
#BAD
}