Sorry, you are right. This code is just above the code I posted:

# Open the configuration files directory and create a thread for each 
+configuration file
opendir (CDIR, $cfgFilesDir) or die;
my $file;
my $thr;
while ($file = readdir(CDIR)) {
    if ($file =~ /.+?\.properties/) {
        $thr = threads->create(\&sendRequest, $file, 'localhost', $pee
+rPort );
    }
}
closedir (CDIR);
[download]