Sending XML Request To Message Queue

[suther]

I need one help..

I have faced problem, while sending XML request to Message Queue.

Message has posted to Message Queue(body), but with dot between characters.eg: (T.e.s.t.M.e.s.s.a.g.e)

Is there any message format to send plain text?

sub sendInbox()
{
my $Body = shift;
#my $Queue = "DIRECT=OS:tandbpc137\\private\$\\testqueue";
my $Queue = "DIRECT=OS:\.\\private\$\\testqueue";
my $sendMsg = Win32::OLE->new('MSMQ.MSMQMessage');
my $sendInfo = Win32::OLE->new('MSMQ.MSMQQueueInfo');

$sendInfo->{FormatName}= $Queue;
my $sendQ = $sendInfo->Open(2, 0);
$sendMsg->{Label}= "test";
$sendMsg->{Body}= "test message";
#Send Message
$sendMsg->Send($sendQ);
$sendQ->Close;
}

sendInbox();