use strict
If you issue use strict; at the top of your Perl script, this forces you to use the my() function to declare all variables local. If not you will receive error messages like, Global symbol "foo" requires explicit package name at test.pl line 3..