sub callback {
    my ( $coderef, @args ) = @_;
    sub { $coderef->( @args ) }
}