You can also look at the Content-Length header in the LWP::Response object returned by the request. To get the vital statistics before downloading:

use LWP::Simple;
my ($content_type,
    $document_length,
    $modified_time,
    $expires,
    $server) = head( $url);
[download]

After Compline,
Zaxo