perl cleanup