can u give me a sample program for autoreply option which we use in mails and i want the code to be in perl