for (@INC) {
  my $path = "$_/MyModule/Plugins";
  for my $m (<$path/*.pm>) {
     $m =~ s{^\Q$_\E/}{}; # strip off everything leading up to MyModule...
     $m =~ s{/}{::}g;     # replace / with ::
     $m =~ s{\.pm$}{};    # remove extension
     eval "use $m;";      # use MyModule::Plugin::Whatever
     die if $@;           # propagate exceptions
   }
}