my $loaded;
{
   # ignore warnings if subs are being redefined
   local $^W = 0;
   $loaded = eval "require MQSeries";
}
if(!defined($loaded))
{
   print "Can't load MQSeries: $@\n";
}