use XML::Simple;
use strict;
use warnings;

my $xml = <<XML;
<?xml version="1.0" standalone="yes"?>
<sdnList>
  <sdnEntry>
   <lastName>Hello world !</lastName>
  </sdnEntry>
</sdnList >
XML

my $xml1 = XMLin($xml);2
my $result = $xml1->{sdnEntry}->{lastName};
print "result:$result\n"; ;

$xml = <<XML;
<?xml version="1.0" standalone="yes"?>
  <sdnList xmlns="http://tempuri.org/sdnList.xsd" >
    <sdnEntry>
      <lastName>Hello world !</lastName>
    </sdnEntry>
</sdnList >
XML

my $xml2 = XMLin($xml);
$result = $xml1->{sdnEntry}->{lastName};
print "result:$result\n";