#!/usr/bin/perl
use strict;
use Lingua::LinkParser;
my $parser = new Lingua::LinkParser;
my $test = "cats have claws and tails and eyes and whiskers";

my $sentence = $parser->create_sentence($test);
my $linkage = $sentence->linkage(1);
print $parser->get_diagram($linkage);
warn "Before words";
my @words = $linkage->words;
warn "After words";