#!/usr/bin/perl
use strict;
use warnings;

my $ntotalbytes = 0;

foreach my $filename (@ARGV)
{
	my $nbytes = 0;
	print "Processing " . $filename . "\n";
	open(INPUT_FILE, "$filename");
	while (<INPUT_FILE>)
	{
		chomp;	
		my @inputrow = split;
		if ((@inputrow >= 10) && ($inputrow[9] =~ /^\d+$/))
		{
			$nbytes += $inputrow[9];
		}
	}
	
	printf ("%.2f", ($nbytes / 1024 / 1024));
        print " MB served from " . $filename . "\n\n";
	close(INPUT_FILE);
	$ntotalbytes += $nbytes;
}

printf ("%.2f", ($ntotalbytes / 1024 / 1024));
print " MB in total served\n";