I think the code is pretty self explanatory. Anyway, it
downloads the one image over an over again from the
site and then prints the total sum of downloaded data,
by predefining the image size in the scalar.

But why does the script make pauses, that last up to 10 seconds, between the connections? I would like to tune it
to get the file as fast as possible and as many times
as possiblem.
Modules not included in the default installation should not be used :)
Thanks for any help.

#!/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 =~ /(.*?)\./;
}
[download]