perldoc -f readir
perldoc -f stat