fix syntax
fix perl