#!/usr/bin/perl

# fathom.pl - return rudimentary statistics about a text

# Eric Lease Morgan <eric_morgan@infomotions.com>
# June 22, 2010 - first investigations; for ALA


# require
use Lingua::EN::Fathom;
use strict;

my $corpus = $ARGV[ 0 ];
if ( ! $corpus ) {

	print "Usage: $0 <file>\n";
	exit;
	
}

my $text = Lingua::EN::Fathom->new;
$text->analyse_file( $corpus );
print( $text->report );

# done
exit;