How to receive message in MSMQ using perl

use strict;
use Win32::OLE;
getInbox('MSMQ-Server\private$\Test');
sub getInbox()
{
my $Queue = shift;
my $message;
my $getInboxMsg = Win32::OLE->new('MSMQ.MSMQMessage');
my $getInboxInfo = Win32::OLE->new('MSMQ.MSMQQueueInfo');
$getInboxInfo->{FormatName}= "direct=os:" . $Queue;
my $getInboxQue= $getInboxInfo->Open(1,0) or return $_;
if (defined($getInboxQue))
{
$message = $getInboxQue->Receive();
$getInboxQue->Close;
}
return $message->{Body};;
}