Slightly unrelated (maybe), you should never use this
        while ($line = <STDIN>)
but instead do
        while (defined($line = <STDIN>))
because one day you'll be bitten by <STDIN> returning a single "0"
and you'll be dead.

perl -w should warn you about this BTW.


Florent

Reply via email to