perl readlink 函数-返回软链接指向的文件

readlink 函数专门用于处理链接，可以返回该链接指向的文件的路径

代码示例：

print readlink($prog) if (-f $prog && -l $prog)；