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));
}

##</code><code>##

    +---------------------Xp--------------------+
    |      +-------CC-------+                   |
    +--Wd--+-SX-+--Pa-+     +Wdc+-Ss+--Pa--+    |
    |      |    |     |     |   |   |      |    |
LEFT-WALL I.p am.v tired.a and he is.v hungry.a .