use Lingua::LinkParser;

our $parser = new Lingua::LinkParser;
my $sentence = $parser->create_sentence("I am tired and he is hungry.");
my @linkages = $sentence->linkages;
foreach $linkage (@linkages) {
    print ($parser->get_diagram($linkage));
}