Select Code to Download

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

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

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

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