Thanks ikegami and lnickt for the help. Using abs_path directly without readlink did solve the problem.

And sorry for the bug in my program. I posted on the windows and I ran my code on linux. So I just typed the code here without checking. I indeed used Cwd qw(abs_path).