my @event_handlers;
BEGIN {
  my $dir = '/my/event/handlers';
  use lib $dir;
  for (</my/event/handlers/Handler/*.pm>) {
    s#.*/##;
    s#\.pm$//;
    eval "use Handler::$_;" or die $@;
    push @event_handlers,"Handler::$_";
  }
}