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);

##</code><code>##

        use Mac::AppleEvents::Simple;
        do_event(qw(aevt odoc MACS),
                "'----': obj{want:type(prop), from:'null'()," . 
                "form:prop, seld:type(macs)}"
        );

##</code><code>##

        use Mac::Glue;
        my $glue = Mac::Glue->new('Finder');
        $glue->open( $glue->prop('System Folder') );