Select Code to Download

use warnings;
use strict;
...
    print "Found ", $elt->tag(), "\n";
    $t->purge;    # frees the memory
}

Found ACL
Found APPLICATION