#!/usr/bin/env perl
use 5.010;
use strict;
use warnings;
use FindBin qw($Bin);

use lib $Bin;

use MarkovBot::Learning;

my $brain_file = $ARGV[0];
open BRAIN, $brain_file or die $!;
learn $_ while <BRAIN>;
close BRAIN;