use strict;
use LWP::Simple;
my $url = 'http://xxxxx.xxx/xxxxxx/xxxxx/xxxx.gif';
printf "$url : %s bytes", ((head $url)[1]);