update perl sub

Change-Id: I1b967d57dd18fbebe2bb798f89096205be9085cd