#!/usr/bin/perl

use IO::Socket::INET;

for ($count=0;$count<=100;$count+=1) {

$getexp = IO::Socket::INET->new(PeerAddr=>'www.test.com',PeerPort=>'80',Proto=>'tcp',Timeout=>'5') || print "Error: Connection\n";

print $getexp "GET /image.jpg HTTP/1.0\n";
print $getexp "Host: www.test.com\n\n";

while($exp = <$getexp>) {}

$sizesum += 55.43;
print "$1\n" if $sizesum =~ /(.*?)\./;
}