Could be a problem with large file support on your platform. What was your platform, sir? Try printing out the value of $fs and (tell INDATA), and see if those look reasonable.