#!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; 
}