minor fix on perl line