readlink 函数专门用于处理链接，可以返回该链接指向的文件的路径
代码示例：
print readlink($prog) if (-f $prog && -l $prog)；
perl readlink 函数-返回软链接指向的文件
原文：http://www.cnblogs.com/xudongliang/p/6899632.html
