pangyre

#!/usr/bin/env perl
use strictures;
use List::Util  "reduce";
use Path::Tiny;
use YAML;

# Given a list of filenames, return a hash of each word and the number
# of times it occurs.

my $reduced = word_count(@ARGV);