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