use Win32::OLE;
  my $queueinfo = Win32::OLE->new('MSMQ.MSMQQueueInfo');
  $queueinfo->{pathname} = '.\private$\myQueue';
  my $queue = $queuinfo->Open(2,0);
  my $message = Win32::OLE->new('MSMQ.MSMQMessage');
  $message->{Body} = 'Whatever';
  $message->Send($queue);