perl object detect broken

warren's picture