Frank Sanbeans 3/10 frank@example.com Sandy Sanbeans 6/12 sandy@example.com ##

##

#!/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";
}