We use blat, which is freeware available from various places, including http://www.interlog.com/~tcharron/blat.html. It makes all the smtp calls for you, you just call blat from perl with the appropriate parameters.