use LWP::Simple;
my $size = length get $url;
[download]

--
Tatsuhiko Miyagawa
miyagawa@cpan.org

Thanks so much! You made my task very easy!

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

($size) = head($url) =~ /^Content-Length:\s+(\d+)/im;
[download]

_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker.
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;

Beware that the Content-Length header is optional though, and many dynamic documents will not output it. Also, some servers tend to do different things with it depending on the request method:

% HEAD http://www.cnn.com/
200 OK
Cache-Control: private,max-age=60
Connection: close
Date: Fri, 05 Oct 2001 08:14:42 GMT
Server: Netscape-Enterprise/4.1
Content-Length: 0
[download]

Then there is the case of servers which will not handle HEAD requests. In the end the only guaranteed way is to use GET and length().

get($url);
$size = length($url);
[download]

______________________________________________
RIP
Douglas Noel Adams
1952 - 2001