Changing perl scripts to use HELP_MESSAGE