对perl研究得不是很深，平时只是随便写写，最近一次，执行perl时，出现如下错误
Undefined subroutine &main::like called at ./get.t line 78.
分析之后，其实就是未定义的函数调用，在这里，like这个函数的调用有问题，like未定义，一般是由于未引入某个库文件。
加入use Test::More;之后就ok了！！
