opendir my $dir, PLUGINS;
@scanners = map (-f $_ ? /^(.*)\.pm$/i : ()), readdir $dir;
closedir $dir;
# ..
    require "$_.pm";