my $callback = sub {
    $object->method(@_);
};