eval {
  require MQSeries;
  MQSeries->import;
};
$@ and warn $@;
[download]

So that will attempt to 'use' MQSeries and warn if it fails. Or as a subroutine

sub cond_use {
  (my $module = shift().".pm") =~ s<::></>g;
  eval {
    require $module;
    $module->import(@_);
  };
  $@ and warn $@;
}
cond_use "MQSeries";
[download]

HTH

_________
broquaint