[MacPerl] Activate and open document command in AppleEvent

[Nobumi Iyanaga]

Hello,

I would like to know how to write the AppleScript commands "activate" and 
"open document" in AppleEvent, within a MacPerl script.  More specifically, 
what I would like to do is the equivalent of:

tell application "Nisus Writer"
        activate
        open document "document_path"
end tell

in AppleEvent (I would prefer to not use Mac::Glue, because of memory 
requirement...).

Thank you in advance for any help.

Best regards,

Nobumi Iyanaga
Tokyo,
Japan