my $old_ref = \&meth;
*meth = sub { before(); &$old_ref ; after() };