Lingua::Treebank is a Perl library which supports treebank exploration and manipulation, develped by Jeremy Kahn. It's still in it's beta stage, but already quite useful :-)
For the curious, here is the library and the script.
Please direct questions about Lingua::Treebank to jgk at u.