#2 One should add "use strict;" to the code.

[Shlomi Fish]

One should add "use strict;" to the code. Further cleanups may be necessary, see:

http://perl-begin.org/tutorials/bad-elements/

Regards,

-- Shlomi Fish