eval qq{ 
        sub $_ 
        { 
            my $self = shift;
            notify("$_");
            $self->SUPER::$_ (@_);
        }
    }