moved perl to top