#!C:\perl\bin

use strict;
use warnings;
use LWP::UserAgent;

my $wsr = LWP::UserAgent -> new;
$wsr -> timeout( 20 );

$wsr->proxy(['http', 'ftp','https'], 'http://192.168.5.39:8080/');

my $url = shift or die "URL expected\n";
my $useragent = LWP::UserAgent->new;

my $request = HTTP::Request->new( HEAD => $url );
my $response = $useragent->request($request);

print $response->status_line, "\n";
print $response->is_success, "\n";