use Lingua::LinkParser;

our $parser = new Lingua::LinkParser;
my $sentence = $parser->create_sentence("This is the turning
   point.");
my @linkages = $parser->linkages;
foreach $linkage (@linkages) {
    print ($parser->get_diagram($linkage));
}