sub get_callback {
    my (undef, $tx) = @_;
    ....
    ....
}