Run the script through the perl debugger and look at the value of $read_size. Or better: set a watchpoint to see where the value of $read_size changed to be negative.