[exim] Perl Scripting SMTP session.

I was thinking it would be handy to have some perl scripts to do custom
sender/recipient verification. Basically I want to connect, wait for the
greeting, send a HELO, interact using the script, and return the final
response string.

Anyone have a sample of how to do this?