How to send message in non-transactional MSMQ queue using perl

&sendInbox("Body",'MSMQ-server\private$\Test');

sub sendInbox()
{
my $Body = shift;
my $Queue = shift;
my $sendMsg = Win32::OLE->new('MSMQ.MSMQMessage');
my $sendInfo = Win32::OLE->new('MSMQ.MSMQQueueInfo');

$sendInfo->{FormatName}= "direct=os:" . $Queue;

my $sendQ = $sendInfo->Open(2, 0);
$sendMsg->{Label}= "Label";


$sendMsg->{Body}= $Body;
#Send Message
$sendMsg->Send($sendQ);
$sendQ->Close;
}