###########################################
sub id_Tag {
###########################################
    my($t, $idTag)= @_;
    unless($idTag->text()) {
        print "ID-tag leer\n";
    }
    print $idTag->text(), "\n";
    
    # Release memory of processed tree up to here
    $t->purge();
}