$lines = 0;
$blanks = 0;
$mults = 0;
print "Lines=$lines  Blanks=$blanks\n  Mults=$mults";
foreach $filename (@ARGV) {
   open(IN, $filename) || die "Can't open $filename";
   print "opened $filename\n";
   while(<IN>) {
      $lines += 1;
      $blanks += /(^\s*$)/$1/;
   }
}
print "Lines=$lines   Blanks=$blanks  Mults=$mults\n";