my @file_stat = stat "$users{$user}/MY_FILE";
        my @dir_stat =  stat "$users{$user}";
        printf("%d $users{$user}         -> 0%o %d %d\n", $>, $dir_stat[2] & 07777, $dir_stat[4], $dir_stat[5]);
        printf("%d $users{$user}/MY_FILE -> 0%o %d %d\n", $>, $file_stat[2] & 07777, $file_stat[4], $file_stat[5]);