そのディレクトリにある各ファイルの行数を出すやつ

line_count.pl

#!/usr/bin/env perl
use strict;
use warnings;
use File::Slurp;

my @iter = glob "*";
my $sum = 0;

for (@iter) {
    next if (-d $_);

    my $line = `wc $_ | awk '{ print \$1}'`;
    my $name = `wc $_ | awk '{ print \$NF}'`;
    chomp($name);

    $name =~ s/\.+\///g;
    print "$name: $line";
    $sum += $line;
}

print "\n$sum";