sub _ehlo { my $self = shift; my $host = Sys::Hostname::hostname; $self->_put("250 $host MacGyver SMTP"); $self->_put("250-$host"); $self->_put("250-AUTH " . join(" ",@_auths) ); }