Tool in perl for send a mass email.