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);