#!/usr/bin/perl

open(IN,"</var/log/httpd/apache_log") || die "can't open /var/log/httpd/access_log $!";

%data = ();
while(<IN>) {
	$line = $_;
	@ara = split(/\s+/,$line);
	$domain = $ara[0];
	$bytes  = $ara[10];
	$data{$domain} += $bytes;
}
close IN;


while (($key, $value) = each(%data)){
     if ($value > 0) {
         $value = sprintf("%0.2f",$value/1024.0/1024.0);
	 $value = "$value MB";
     }
     print $key.": ".$value."\n";
}