{ local @INC = PLUGINS; opendir my $dir, PLUGINS; eval qq(@{[ map -f && ? /^(.*)\.pm$/ && "use \Q$1\E;", readdir $dir ]}); closedir $dir; }