Seems a little complicated. Have you tried the following:

use Mail::Sendmail;

my %mail = (
    To      => 'mytestaddress@aol.com',
    From    => 'test@aol.com',
    Subject => 'Test 1',
    Message => 'Test number 1',
    smtp    => 'smtp.comcast.com'
);

sendmail(%mail) || print "Error sending mail: $Mail::Sendmail::error\n
+";
[download]

I get

Error sending mail: smtp.comcast.com not found
connect to localhost failed (Unknown error)
connect to localhost failed
connect to localhost failed (Unknown error) no (more) retries!
[download]

I suspect that the comcast server won't allow me to connect however! (... assuming it exists - "nslookup smtp.comcast.com" fails for me)