##
#!/usr/bin/perl
use strict;
use XML::Simple;
my $xml = XMLin('parsetest.xml',forcearray => 1);
foreach my $customer(@{$xml->{customer}}){
print "Name: $customer->{first_name}->[0]";
print "$customer->{last_name}->[0]\n";
print "Birthday: $customer->{dob}->[0]\n";
print "Email-add: $customer->{email}->[0]\n";
}