sub worldWritable {
    my( $shortname, $path, $fullname ) = @_;
    ## $shortname == $_; 
    ...
    return 1 if $want;
    return 0 if not $want;
}