#!/usr/bin/perl

use strict;
use warnings;
use XML::XPath;
use XML::XPath::XMLParser;

my $file = 'test.xml';

my $xp = XML::XPath->new( filename => $file );

my $nodeset = $xp->find('//employee');
foreach my $node ($nodeset->get_nodelist) {
    print XML::XPath::XMLParser::as_string($node),
    "\n\n";
}