eval qq{ 
        sub $_ 
        { 
            notify($_); 
            shift->SUPER::$_ 
        }
    }