Eudora glue

At 3:09 pm -0700 10/8/06, Chris Nandor wrote:

> At 21:37 +0100 2006.08.10, John Delacour wrote:
> > Ah!  That sounds terrific.  I guessed there must be some way to build
> > the glue, as in Frontier.
>
> Yeah, I borrowed a bunch of ideas from Frontier.

I'm trying to work out how to make a new message using the Perl glue 
I've created for Eudora.  It's going to take me a little while to 
adapt to the Perl syntax, so I hope you don't mind my asking a few 
dumb questions.

In AppleScript it would be
     make message at end of mailbox ":Out"

and in the glue I made for Frontier the basic verb eudora.MS.new() is:

on new() {
	M = core.create ('CSOm', 'euMS', 0, 0, insertionloc ('end ', 
['euMB'][":Out"]))}

What would the syntax be in Perl?

JD