#Dynamic module loader for listeners sub load_listeners { my @modules; foreach $dir (@INC) { if (-e "$dir" . "//PMBot") { opendir($pmbot_dir, "$dir" . "//PMBot//Listeners//") or die "cant opendir $some_dir: $!"; @modules = grep {/*.pm/} readdir($pmbot_dir); closedir $pmbot_dir; } } foreach $filename (@modules) { my $module_name = "PMBot::Listeners::" . " require $module; } }