if (opendir(DIR, "$main::root/perl")) {
my @d = readdir(DIR);
closedir(DIR);
foreach my $fn (@d) {
if ($fn =~ /^cluster\.pl$/ || $fn =~ /\.pm$/) {
if (opendir(DIR, "$main::root/perl")) {
my @d = readdir(DIR);
closedir(DIR);
foreach my $fn (@d) {
if ($fn =~ /^cluster\.pl$/ || $fn =~ /\.pm$/) {