#!/usr/bin/perl

use strict;
use warnings;
use LWP::UserAgent;
use Time::HiRes;

#---------------------------------------------------------------------
my $ua = LWP::UserAgent->new(agent => 'Mozilla 5.0', timeout => 50);
my $proxy = '116.236.216.116:8080' ;
my $url='www.yandex.ru';
$ua->proxy('http',"http://".$proxy."/");
#---------------------------------------------------------------------

my $received_bytes = 0;
my $curspeed;


my $start = Time::HiRes::time();
my $resp = $ua->get($url, ':content_cb' => sub {   # Это с готового скрипта строчка я не понимаю что в ней
                                                   # происходит и работает ли она.....

$received_bytes += length($_[0]);                  # Поповоду $_[0] тут я так понимаю должна быть $ua, хотя я
                                                   #  её подставлял, один хрен не работает....

$curspeed = $received_bytes / (Time::HiRes::time() - $start);

print "$curspeed\n";
                                               });

<>;