my $old = \&method;
*method = sub {
    # Do something new
    my @return = $old->( @args );
    # Do something else
};