#!/local/bin/perl -w

# Write wc in Perl

use strict;

my $lines;
my $words;
my $chars;
my $line;
my $filename;

foreach $filename (@ARGV) {
  my $lines = 0;
  my $words = 0;
  my $chars = 0;

  if(! open(INFILE, "$filename")) {
    print "Couldn't read $filename - continuing\n";
  } else {
    while( $line = <INFILE> ) {
      $lines++;
      my @tmparray = split( / /, $line);
      $words += @tmparray;
      my @carray = split( //, $line);
      $chars += @carray;

    }
    print "$lines $words $chars $filename\n";
  }
}