Select Code to Download

use Lingua::LinkParser;

...
foreach $linkage (@linkages) {
    print ($parser->get_diagram($linkage));
}

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