Select Code to Download

#!/bin/perl -w
use strict;
...
     
      $p->cut;  # This one is processed, delete from tree ..
}

$ perl xmlt.pl xmldata2.xml 
para:This is a design XZY document for Project
...
    Parent : sect
    Parent : part
    Parent : root