opendir (my $sub_dir, $dir) or die "Couldn't open $dir : $!\n";
        while (defined (my $file = readdir($sub_dir)) )