add perl loc tool