>>
>> perl -MIO::Socket -e '$s = new IO::Socket::INET("localhost:25");
>> $s->print("HELO test\r\n"); print $s->getline();'
>>
You are not waiting for the remote SMTP connection message. You should not
send anything until they say actually say something like "220 ...."
Thanks
Craig