Clean up. Use perl -w and strict.