use Modern::Perl qw/2014/;
use lib 'D:/Perl/scripts';    # or wherever you have saved the modules

use TextClass;

my $person = TextClass->new( text => q/I'm CountZero/ );

$person->prettyprint;