>>9
ありがとうございます。telnetで動きました。
それを元に、ブラウザで見れるようにしてみました。
一応動いてますが、おかしいところがあったら言ってください。

#!/usr/local/bin/perl

open INPUT, "<../../access_log"; #CGIを置く位置で変える
while(<INPUT>){($userip, $user, $accessdate, $request, $answer, $sendbyte, $referer, $browser) = /(.*?)\s-(.*?)-\s\[(.*?)\]\s\"(.*?)\"\s(\d+?)\s(.*?)\s\"(.*?)\"\s\"(.*?)\"/; $totalbyte += $sendbyte;}
close INPUT;

open INPUT, "<../../access_log.count"; #CGIを置く位置で変える
while(<INPUT>){$counter = $_;}
close INPUT;

$MB=0; $KB=0; $B=$totalbyte;
if ($totalbyte >= 1024){ $B = $totalbyte % 1024; $totalkirobyte = ($totalbyte - $B)/1024;}
if ($totalkirobyte >= 1024){ $KB = $totalkirobyte % 1024; $MB = ($totalkirobyte - $KB)/1024;}

print "Content-type: text/html\n\n";
print "$counter<br><br>\n";
print "$totalbyte <font size=1>Bytes</font> ( $MB <font size=1>M</font> $KB <font size=1>K</font> $B <font size=1>Bytes</font>)\n";
__END__