use Mac::AppleEvents;
        use Mac::Errors '$MacError';

        $evt = AEBuildAppleEvent('aevt', 'odoc', typeApplSignature, 'MACS',
                kAutoGenerateReturnID, kAnyTransactionID,
                "'----': obj{want:type(prop), from:'null'()," . 
                "form:prop, seld:type(macs)}"
        ) or die $MacError;
        $rep = AESend($evt, kAEWaitReply) or die $MacError;

        AEDisposeDesc($evt);
        AEDisposeDesc($rep);