#!/usr/bin/perl -w

$| = 1;
use LWP::UserAgent;
$UserAgent = new LWP::UserAgent;
$UserAgent->timeout(60);
$UserAgent->proxy( 'http', 'http://204.134.208.33:80/' );

my $request = new HTTP::Request('GET', 'http://www.ru/' );
print "Connecting ... ";
my $response = $UserAgent->request ( $request );
print "done.\n";
print $response->code,"; ",$response->message,"\n";