perl Safe-Hole