fixed perl and rename