<% my $name = join(' ', findvalue('/resume/person/persname/forename'), findvalue('/resume/person/persname/surname')); %> <%= $name %> - CV

<%= $name %>

<% my ($addr) = findnodes('/resume/person/address'); print join(' / ', findvalues('line', $addr), findvalue('postcode', $addr), findvalue('country', $addr) ); %>
Tel: <% foreach my $tel (findnodes('/resume/person/phone')) { print " ", findvalue('@type', $tel), ": "; print findvalue('./text()', $tel); } %>
e-mail:<%= findvalue('/resume/person/email') %> / gsm sms:<%= findvalue('/resume/person/sms') %>

DoB: <%= findvalue('/resume/person/dob') %>


Education
<% my ($edu) = findnodes('/resume/education/establishment[1]'); %>
<%= findvalue('name', $edu) %> Graduated: <%= findvalue('dateto', $edu) %>
<%= findvalue('qualification/name', $edu) %>

Key Skills
<% my @areas = findnodes('/resume/skills/area'); foreach my $area (@areas) { %> <% } %>
<% foreach my $skill (findnodes('item', $area)) { %> <% } %>
<%= findvalue('@name', $area) %>
<%= findvalue('./text()', $skill) %>

Current Work
<%= findvalue('/resume/experience/employee[1]/name') %>

Work Experience
<% foreach my $employee (findnodes('/resume/experience/employee[position() <= 7]')) { %> <% } %>
<%= findvalue('name', $employee) %> <%= findvalue('datefrom', $employee) %> - <%= findvalue('dateto', $employee) %>
<%= findvalue('details', $employee) %>
Speaking Engagements
As one of the world's leading Perl and XML developers, I am invited to speak at many conferences each year. These are the talks I have given or will be giving in the coming year: <% $t->{'talk'}{showtag} = 0; foreach my $engagement (findnodes('/resume/speaking/engagement')) { %> <% } %>
<%= $engagement->findvalue('conference') %> (<%= join(', ', map { apply_templates($_) } $engagement->findnodes('talk')) %>)
Training
<% foreach my $course (findnodes('/resume/training/course')) { %> <% } %>
<%= findvalue('name', $course) %> (<%= findvalue('trainee', $course) %>)