./rpcxmlserver.pl 
$VAR1 = [
          bless( {
                   '__response' => bless( {
                                            '_content' => '',
                                            '_rc' => 200,
                                            '_headers' => bless( {
                                                                   'content-type' => 'text/xml',
                                                                   'accept' => 'text/xml',
                                                                   'accept-encoding' => 'deflate',
                                                                   'rpc-server' => 'RPC::XML::Server/1.44',
                                                                   'rpc-encoding' => 'XML-RPC'
                                                                 }, 'HTTP::Headers' ),
                                            '_msg' => 'OK'
                                          }, 'HTTP::Response' ),
                   'method_name' => 'test',
                   '__started' => 1204548264,
                   '__auto_methods' => 0,
                   '__method_table' => {
                                         'test' => bless( {
                                                            'signature' => [
                                                                             'struct struct'
                                                                           ],
                                                            'sig_table' => {
                                                                             'struct' => 'struct'
                                                                           },
                                                            'name' => 'test',
                                                            'code' => sub { "DUMMY" }
                                                          }, 'RPC::XML::Method' )
                                       },
                   '__compress_re' => qr/(?-xism:deflate)/,
                   '__message_temp_dir' => '',
                   '__auto_updates' => 0,
                   '__compress' => 'deflate',
                   '__daemon' => bless( \*Symbol::GEN0, 'HTTP::Daemon' ),
                   '__message_file_thresh' => 1048576,
                   '__xpl_path' => [],
                   '__version' => 'RPC::XML::Server/1.44',
                   '__path' => '',
                   '__timeout' => 10,
                   '__compress_thresh' => 4096,
                   '__debug' => 0,
                   'signature' => [
                                    'struct',
                                    'struct'
                                  ],
                   '__requests' => 0,
                   '__parser' => bless( {
                                          'stack' => [],
                                          'cdata' => '+420223344600'
                                        }, 'RPC::XML::Parser' ),
                   '__port' => '8888',
                   '__host' => 'localhost'
                 }, 'RPC::XML::Server' ),
          {
            'called_number_net' => {
                                   'nat' => '3',
                                   'number' => '223344600'
                                 },
            'event_type' => '1',
            'called_number_int' => '+420223344600'
          }
        ];
$VAR1 = \{
            'called_number_net' => {
                                   'nat' => '3',
                                   'number' => '223344600'
                                 },
            'event_type' => '1',
            'called_number_int' => '+420223344600'
          };
$VAR1 = {
          'called_number_net' => {
                                 'nat' => '3',
                                 'number' => '223344600'
                               },
          'event_type' => '1',
          'called_number_int' => '+420223344600'
        };