perl developer to modify existing script / postfix policy service

Following script should be modified to do the following: [login to view URL] - GET MX DNS entries for given recipient=... domain - check which hosts are up and test, if up hosts, support STARTTLS - if one out of all up hosts, support TLS, exit on first hit and return OK - exit when last host has been checked and non support TLS and return FAIL. - record status for given domain for pre-defined time in db to redude DNS lookups and tcp connections. DB stuff is already handled by script. should be no big thing do so some network voodoo and few connects, write data to hash...