my $compCode = MQSeries::MQCC_FAILED;
      my $Reason =   MQSeries::MQRC_UNEXPECTED_ERROR;	
      my $mnone = MQSeries::MQRC_NONE;	

      print "-------------------------------------------\n";
        print "mqnone is $mnone\n";
	print "code is $compCode\n";
	print "Reason is  $Reason\n";
	print "Before calling MQCONN\n";  
      
      
      print "-------------------------------------------\n"; 

            $Hconn = MQCONN($qm_name,
                             $compCode,
                             $Reason,
                            )|| die "Unable to Connect to Queuemanager\n";



 print "code is $compCode\n";
 print "Reason is  $Reason\n";