foreach fileName [glob "." ".*"] {
        $stdout writeln $fileName
    }