perl port continued...