#!perl
use strict;
use warnings;
use LWP::UserAgent;
my $browser = LWP::UserAgent->new;
$browser->timeout(10);
foreach my $url (@ARGV)
{
my $response = $browser->get($url);
printf "%s: %s\n",
$url,
$response->is_success ? "OK" : $response->status_line;
}