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);

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

        @{$pi}{qw(status content type base length)} = (
				$response->status_line;
				$content;
				$response->content_type;
				$response->base;
				commify(length($content));
		);
		return;
}