Пытаюсь скорость загрузки страницы через прокси определить, подскажите чего не так пожалуйста.
Я сравниваю скорость с http://spys.ru/speed/  всегда отличается от скорости скрипта почему-то.
Чем больше вариаций скорости ставлю if (@speed_variations == 10) тем выше пишет скорость.

#!/usr/bin/perl

use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Cookies;
use Time::HiRes;
my $ua = LWP::UserAgent->new(agent => 'Mozilla 5.0', timeout => 10);

my $url ='http://yandex.ru';        #сайт который загружаем

my $line='5.63.153.66:3128';      #прокся

$ua->proxy('http',"http://".$line."/");


#----------------------------------------------
my @speed_variations;
my $received_bytes = 0;
my $curspeed;
my $maxbytes = 1024*1024;
my $start = Time::HiRes::time();
#-----------------------------------------------

my $resp = $ua->get($url, ':content_cb' => sub {
$received_bytes += length($ua);
$curspeed = $received_bytes / (Time::HiRes::time() - $start);
die if $received_bytes > $maxbytes;

print "Variation:$curspeed\n";

if (@speed_variations == 10) {
my $ok = 1;
for my $s (@speed_variations) {
if (abs($s - $curspeed) > 5 * 1024) {
$ok = 0;
last;
}
}
die if $ok;
shift @speed_variations;
}
push @speed_variations, $curspeed;
});

print "Rezultat : $curspeed\n";
<>;