Select Code to Download

use strict;
use warnings;
...

print Dumper \%files;
print "Total size = $total_count lines.\n";

$ perl  line_count.pl
$VAR1 = {
...
          './subdiscard.pl' => '23'
        };
total size = 284 lines.

use strict;
use warnings;
...
}

print "Total size = $total_count lines.\n";

$ perl  line_count.pl
./schwartz.pl    27
...
./subdiscard3.pl         12
./sum.pl         19
Total size = 284 lines.