...
while (<NEW944>) {
    print "Reading line $.\n";
    print "Contents: $_\n};
    ...