#! perl -slw
use strict;
use Data::Dump qw[ pp ];
use XML::Simple;

my $xml = XMLin( \*DATA );

pp $xml;


__DATA__
<EVENT> 
	<CALLDETAILS> 
		<STATIONID>01</STATIONID> 
		<CALLSESSIONID>00000000020712130852059</CALLSESSIONID> 
		<EXTENSIONNO>8143</EXTENSIONNO> 
		<ZIVAHCHANNELID>172.16.39.88</ZIVAHCHANNELID> 
		<SUBCHANNELID>0</SUBCHANNELID> 
		<AGENTID>NULL</AGENTID> 
		<CALLERID>&#xA0;jW&#xB7;h&#xAE;&#xF5;&#xBF;&#x8A;7a&#xB7;&#xD8;T&#xD9;^N</CALLERID> 
		<CALLEEID>NULL</CALLEEID> 
		<CALLTYPE>IN</CALLTYPE> 
		<RINGCOUNT>1</RINGCOUNT> 
		<CALLTERMSTATUS>NO_CTI_DATA</CALLTERMSTATUS> 
	</CALLDETAILS> 
</EVENT>