#!/usr/bin/perl
use warnings;
use Algorithm::NaiveBayes;

local $/ = "\015";