use MythTV::Suggest;
use Lingua::StopWords::EN;

my $my = MythTV::Suggest->new(
  hostname    => $hostname,
  database    => $database,
  username    => $username,
  password    => $password,
  statefile   => $statefile,
  stopwords   => Lingua::StopWords::EN::getStopWords(),
)
  or die MythTV::Suggest->error;

if ($learn)
{
  $my->learn();
}
else
{
  my $suggestions = $my->suggest();

  for my $show (@$suggestions)
  {
      print <<EOB;
    SCORE   = @{[sprintf "%0.2f", $show->{score} ]}
    TITLE   = $show->{title}
  SUBTITLE  = $show->{subtitle}
DESCRIPTION = $show->{description}
  STARTTIME = $show->{starttime}
    CHANNEL = $show->{channel}
      LINK  = http://my.mythtv.box.local/mythweb/tv/detail/$show->{chanid}/$show->{timestamp}
----------
EOB
  }
}