use Win32::OLE; my $myQueue = Win32::OLE->new("MessageQueue") or die("Create object failed! :P"); #### $myQueue->{targetQueue} = "./" . $private . "/myQueue"; #### $myQueue->Send($messageText);
## $myQueue->{targetQueue} = "./" . $private . "/myQueue"; ##
## $myQueue->Send($messageText);