I asked a similar question recently at deriving usage from Getopts::Long and got some nice answers on mixing usage in POD so you get your usage 'for free' in your POD documentation

This node The Dynamic Duo was the solution I went with in the end. I have now made a standard framework for starting a script based on this idea and the client loved the HTML man pages and being able to my_script.pl -man

Cheers,
R.