#!/usr/bin/perl

use XML::Simple;

$xml = new XML::Simple;

# read the XML file
$data = $xml->XMLin("employees.xml");

print "Content-type: text/html\n\n";

print "Forename 1= $data->{name}->[0]->{forename}<br>";
print "Surname 1 = $data->{name}->[0]->{surname}<br>";
print "Surname 2 = $data->{name}->[1]->{forename}<br>";
print "Surname 2= $data->{name}->[1]->{surname}<br>";

<?xml version='1.0'?>
<employee>
        <name>
            <forename>John</forename>
            <surname>Doe</surname>
        </name>
        <age>
            <dob>10-02-1967</dob>
        </age>            
        <************>M</************>
        <department>
            <departmentname>Operations</departmentname>
            <title>Manager</title>
        </department>
        <name>
            <forename>Craig R.</forename>
            <surname>Morton</surname>
        </name>
        <age>
            <dob>05-03-1984</dob>
        </age>            
        <************>M</************>
        <department>
            <departmentname>Internet</departmentname>
            <title>Developer</title>
        </department>
</employee>