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