Select Code to Download

#!/usr/bin/perl -w
use RPC::XML;
...
        return RPC::XML::fault->new('444', 'not good');
    }
}

#!/usr/bin/perl -w
require RPC::XML;
...

print $hash->{answer};
print "\n";

 ./rpcxmlserver.pl 
$VAR1 = [
...
          'event_type' => '1',
          'called_number_int' => '+420223344600'
        };

 ./rpcxmlklient.pl 
$VAR1 = \bless( {
...
            'answer' => 'OK bejby'
          };
OK bejby

my $serv = shift;
my $hash = shift; 
my %hash = %$hash;

$hash = $resp->value;