>>12
ありがと。転送量だけわかればいいので

#!/usr/local/bin/perl

open INPUT, "<../../../../var/tmp/access_log/hogehoge"; #hogehogeにID名
while(<INPUT>){($userip, $user, $accessdate, $request, $answer, $sendbyte, $referer, $browser) = /(.*?)\s-(.*?)-\s\[(.*?)\]\s\"(.*?)\"\s(\d+?)\s(.*?)\s\"(.*?)\"\s\"(.*?)\"/; $totalbyte += $sendbyte;}
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 "$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__


という感じで使わせていただきました。
perlの知識がないので、これでいいのかわからないけど

274986791 Bytes ( 262 M 253 K 807 Bytes)
こんな結果が出ましたです。