use perl to automaticly set office documents