use strict;
use Frontier::RPC2;
use Data::Dumper;
my $coder = Frontier::RPC2->new;
 
my $xml_string="<?xml version=\"1.0\" encoding=\"UTF-8\"?>
<methodCall>
<methodName>Refill</methodName>
<params>
<param>
<value>
<struct>
<member>
<name>originHostName</name>
<value>
<string>host</string>
</value>
</member>
<member>
<name>originNodeType</name>
<value>
<string>EXT</string>
</value>
</member>
<member>
<name>voucherActivationCode</name>
<value>
<string>39393939393</string>
</value>
</member>
<member>
<name>subscriberNumberNAI</name>
<value><i4>2</i4></value>
</member>
</struct>
</value>
</param>
</params>
</methodCall>
";
my $key;
my $value;
my $call = $coder->decode($xml_string);
my %coins = Dumper($call);#->{'value'}->{'originHostName'};

print $coins{'originHostName'};