I have no Perl on Windows experience, so I could well be talking complete nonsense, but maybe it's possible to open the file, fseek to the (current?) end and use ftell to get the current position. Repeat using a sensible pause.

Arjen