sub call {

    ...

    if ($result->{'type'} eq 'fault') {
        die "Fault returned from XML RPC Server, fault code " . $result->{'value'}[0]{'faultCode'} . ": "
            . $result->{'value'}[0]{'faultString'} . "\n";
    }

    return $result->{'value'}[0];
}