or download this
my $sec = Security::Monitoring::Detection::Markov->new(10);
$sec->sys_learn();
print "finger = " . $sec->get_score('finger') . "\n";
print "alkajsdfa = " . $sec->get_score('alkajsdfa') . "\n";
print "xxxphotoblatxxx = " . $sec->get_score('xxxphotoblatxxx') . "\n"
+;