Consider this block of code in your original example:

        while (($out = <INF>) ne "\n")  {
                print $out;
        }
[download]

If you happen to at the end of file, <INF> will return undef, which is ne "\n". Infinite loop.