Transfer Function that multiplies it with its conjugate and gives num & den

[mart737 (Roberto Martin del Campo Vera)]

I would like to know how to write in Mathematica a .nb file which creates a transfer function, then multiplies it with its conjugate and then gives the numerator and denominator. Thanks