Call truncate through perl. am: a8683d1706
am: cdf06fc719

Change-Id: I2971e23ab3dafe73ea02f72c7adf75eaafe15d05