fix perl bugs