Changed module author and renamed some vars

Use Tools::strtoupper() instead.