>> perl -MIO::Socket -e '$s = new IO::Socket::INET("localhost:25"); >> $s->print("HELO test\r\n"); print $s->getline();'