sub try2use(*@) {
  my $m = shift;

  local $_ = $m; s|::|/|g; $_ .= ".pm";
  my $r = eval { require };

  $m->import(@_) if ($r && !$@);

  $r;
}