#!/usr/local/bin/perl -w

use strict;
use LWP::UserAgent;

my $debug = 0;
my $url = shift || die "Syntax is '$0 url-to-test': $!";

$debug && print "URL is $url\n";

my $ua = new LWP::UserAgent;
my $request = HTTP::Request->new('GET', "$url");
my $response = $ua->request($request);

if ($response->is_success) {
   exit 0;
} else {
   exit 1;
}