my %pi;
get_page($site, \%pi);

print $pi{'length'}, " bytes\n";

####################################################
sub get_page {
        my ($site, $pi) = @_;

        $browser        = LWP::UserAgent->new()
                          unless $browser;

        my $response    = $browser->get($site);
        $pi->{status}   = $response->status_line;
        $pi->{content}  = $response->content;
        $pi->{type}     = $response->content_type;
        $pi->{base}     = $response->base;
        $pi->{length}   = commify(length($pi->{content}));

        if (!$response->is_success) {
                die "\nError: $status ($site)\n";
        }
}