Select Code to Download

<?xml version ="1.0"?>
<customer-data>
...
</customer>
</customer-data>

#!/usr/bin/perl

use strict;
...
    print "Birthday: $customer->{dob}->[0]\n";
    print "Email-add: $customer->{email}->[0]\n";
}