diff --git a/free-programming-books-zh.md b/free-programming-books-zh.md
index 41a6a28aa632b..5b5eb36731d28 100644
--- a/free-programming-books-zh.md
+++ b/free-programming-books-zh.md
@@ -10,6 +10,7 @@
 * [JavaScript](#javascript)
 * [LaTeX](#latex)
 * [LISP](#lisp)
+* [Perl](#perl)
 * [Python](#python)
 * [Ruby](#ruby)
 * [Scala](#scala)
@@ -75,6 +76,9 @@
 * [ANSI Common Lisp 中文翻译版](http://acl.readthedocs.org/en/latest/)
 
 
+### Perl
+* [Master Perl Today](https://github.com/fayland/chinese-perl-book)
+
 ### Python
 * [深入Python](http://woodpecker.org.cn/diveintopython/)
 * [笨办法学 Python](http://sebug.net/paper/books/LearnPythonTheHardWay/)