sub wrap {
    my ( $code_ref ) = @_;

    # blah blah
    $code_ref->({ q => $q,
                  T => \%T,
                  # etc.
                });
    # blah blah
}