I recall this coming up a long time ago here. The problem is that you end up creating a new $line lexical each time through the loop and these don't get free()d until you exit the loop. So the leak is temporary.

Based on other parts of the thread, this behavior may be fixed in newer versions of Perl.

        - tye (but my friends call me "Tye")