It is the same old problem. Not using strict and warnings. Make use of them whenever you write some meaningful perl scripts. ( can excuse the JAPHs !! ).

See this for some good practices while coding in perl.

-T

use Perl; use strict;