Thanks both of you.

My code so far is thus:

use Win32::OLE;

my $queueinfo = Win32::OLE->new('MSMQ.MSMQQueueInfo');
$queueinfo->{pathname} = '\\myServer\private$\myQueueName';
my $queue = $queueinfo->Open(2,0);

my $myMsg = Win32::OLE->new("MSMQ.MSMQMessage") or
    die("Create message object failed! :P");
        
$myMsg->{Label} = 'myLabel';
$myMsg->{Body} = 'myBody';

$myMsg->Send($queue);
[download]

The script doesn't die, but the message isn't delivered either. In the MS documentation, a MessageQueue object is returned from the $queueInfo->Open() call, but $myQueue of course isn't blessed in my script. Could this be part of the problem?

Thanks again,
A.M.