foreach my $dirnam (@dirnames_I_found)
{
    if ( (-M $dirnam) < 7 )
    {
        print "    $dirnam\n";
    }
}