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

##</code><code>##

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