#!/usr/bin/perl
use LWP::Simple; 
if (head('http://www.foo.com/')) { 
  print "Page exists and would download fine!\n";
}