[perl] Parsing XML

[Darkelf83]

Ciao a tutti,
è un po' che non posto in questo forum, ma ho bisogno di un aiutino .
In pratica devo scrivere uno script in Perl per fare il parsing di un file XML. Ho quindi creato una funzioncina ricorsiva che fa questo:

sub esplora
{
 	$nodo = $_[0];
 	
 	for my $kid ($nodo->getChildNodes)
 	{
	 	if ($kid->hasChildNodes)
	 	{
	 		esplora($kid);
	 	}
	 	else
	 	{
	 		print $kid->getNodeName.": ".$kid->getNodeValue."\n";
	 	}
	}
}

il problema però è che sul $kid->getNodeName, invece di stamparmi il nome del nodo, mi stampa una stringa "#text".
Ho provato ad usare $kid->getParentNode->getNodeName ed in questo caso mi stampa sia il nome del nodo padre, sia il nome del nodo giusto.
Qualcuno sa dirmi come posso fare per stampare solo il nome del nodo corrente?

Grazie mille