#!/usr/bin/perl
use XML::Simple;
my $clientes = XMLin("/root/txt/tutoperl2000/clientes.xml");
for( @{$clientes->{cliente}} ) {
  print "$_->{nombre} => $_->{pasta} ($_->{fecha})\n";
}