use Modern::Perl;
no if $] >= 5.017011, warnings => 'experimental::smartmatch';
use Fcntl qw(:flock);
use strict;
use warnings;
use AI::Categorizer;
use AI::Categorizer::Collection::Files;
use Algorithm::NaiveBayes::Model::Frequency;
use File::Spec;
use File::Copy;
use File::ChangeNotify;
use AI::Categorizer::Learner::NaiveBayes;