Select Code to Download

use strict;
use warnings;
...
    ?
    $t->purge;
    }

<Configuration>
 <Version>1.0</Version>
...
 </Hierarchy>
 </Configuration>