use LWP::UserAgent;
use HTTP::Request::Common;
my $ua = LWP::UserAgent->new;

for my $url (qw(...)) {
  if ($ua->simple_request(HEAD $url)->code == 200) {
    # it's good
  } else {
    # it's bad
  }
}