tunned perl stuff