#!/perl/bin/perl
#
# Author: L.H
# Script Name: lab6-1
# Date Written: March 15, 2005
# Purpose: Basic I/0
#
#

use strict;

foreach my $file (@ARGV) {
    open(FILE, "$file");
    my $sum = 0;
    while (<FILE>) {
        $sum+=$_;
        print "$file $_\n";
    }
    print "$sum\n";
    close( FILE );
}