How do I overload M-q to invoke fill-region only when mark is active?

[rayz]

I'd like to use M-q to invoke fill-region when mark is active.
Otherwise I want it to invoke fill-paragraph.  How do I set this up?

Please respond to the group -- the e-mail address is invalid.  TIA