错误行号

错误行号
perl每次给我提示的错误行号总不对,调试的时候定位错误比较困难。
请问这个错误行号是怎么来的?
怎么能得到争取的错误行号?