Not a perl solution, but www.selfpromotion.com offers a lot of good advice and some free tools for doing this.

§ George Sherston