perl port continued:72