my $text = Text::Plagiarized->new;
$text->original($original_text);
foreach my $comparison (@comparison_texts) {
  # the following two lines should probably be collapsed to
  # $text->compare($comparison);
  $text->comparison($comparison);
  $text->analyze;
  print $text->percent, $/; # percent of matching sentences
  if ($text->percent > $some_threshold) {
    # arrayref of array refs with [$sentence, $possible_match]
    print Dumper($text->matches);
  }
}