The email::reply module takes the hard out of generating replies to email messages.

the exported reply() function accepts a number of named parameters and returns an email message object of type email::mime or email::simple, depending on the parameters passed.