perl port continued:78