my $md = { MsgFlags => MQSeries::MQMF_SEGMENTATION_ALLOWED };
my $putmessage = MQSeries::Message->new( MsgDesc => $md ,Data => $data );