view release on metacpan or  search on metacpan

eg/freq.orig  view on Meta::CPAN

#! /usr/local/bin/perl -w

use lib qw{ blib/lib ../blib/lib };
use Acme::DonMartin;

my %f;
for my $f (@ARGV) {
    open my $fh, '<', $f or next;
    while( <$fh> ) {
        $f{$_}++ for split //;
    }
    close $fh;
}

eg/freq.pl  view on Meta::CPAN

#! /usr/local/bin/perl -w

use lib qw{ blib/lib ../blib/lib };
use Acme::DonMartin;
sklush thlup pflap groon sound shkliksa glip cak gashklitzka kashpritza
ding shlook ging chaklik borfft crugazunch twok flut spla tood shkwitz
kladwak brrrapp thwak crunch whisk tippity sklukle gashklitzka pik
gukguk dingalina gak sproingdoink sklork flak kloonk kaloong cha thomp
shlork ak kaboomm dak sknikle ugh padap twok tweee kwoip fidip poink
plortch klank argle fween thud bash cloink fitzrower gadoing znik
sproingdoink spaloosh shkliksa fwiskitty tak wee fwizzish yahhah splesh
shklurtz glangadang rrrrrr zat spitz glorkle mabbit pittoo thwit haah
blatch sslit spoosht chaklik kik pittooie kawk glont glorkle klink ooom