here's some perl scripts to get/set cyrus forwards