my $opinion = 'Algorithm::NaiveBayes'->new;
my $money   = 'Algorithm::NaiveBayes'->new;