#!/usr/bin/perl -w
use strict;
use LWP::Simple;

my $website = 'http://www.yahoo.com';

if(head($website)){
   #its up
} else {
   #its not
}