perl運行時出現報錯下面是源代碼和報錯內容，

open IN,"1CHR.txt";

open OUTemp1,'>',"OutPDB.txt";

改成

open IN, "1CHR.txt" or die "Can't read file";

open OUTemp1, ">OutPDB.txt" or die "Can't create OUT";

看看有沒有報出甚麼錯 ?