You'll better place use strict; instead of use warnings; in top of your code and be sure to follow coding guidelines in "perldoc perlstyle", it is especially usefull for novices

Courage, the Cowardly Dog