#!/usr/bin/perl -w

use File::Find;
use strict;

my @dirs;
find (\&dirs_deny_grp_other, $ENV{'HOME'});

print join ("\n",sort @dirs),"\n";

sub dirs_deny_grp_other
{
    return if ! -d || !stat;
    if ( ( (stat "$File::Find::name")[2] & 011) == 0  )
    {
       push @dirs, $File::Find::name;
    }
}