Select Code to Download

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

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

$myQueue->Send($messageText);