use LWP::Simple qw($ua head);
$ua->timeout(10);

my $url = 'http://www.domain.com/';
if (head($url)) {
  print "Does exist\n";
} else {
  print "Does not exist or timeout\n";;
}