use Win32::OLE;
my $myQueue = Win32::OLE->new("MessageQueue") or
   die("Create object failed! :P");

##</code><code>##

$myQueue->{targetQueue} = "./" . $private . "/myQueue";

##</code><code>##

$myQueue->Send($messageText);