# !C:\Perl\bin

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

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

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

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

print $response->status_line, "\n";
print $response->is_success, "\n";
print $useragent->proxy('http'),"\n";