if($debug) { print STDERR "going to connect to $ssph->{host}\n"; }
 my $smtp= Net::SMTP->new
  (Host=> $ssph->{host},
   ($ssph->{port} ? (Port=> $ssph->{port}) : ()),
   ($debug ? (Debug=> 1) : ())
  ) || die "open SMTP $ssph->{host}: ".$!;
 if($debug) { print STDERR "connected to $ssph->{host}, going to auth\n"; }

 if($ssph->{user} and $ssph->{pass}) {
  $smtp->auth($ssph->{user}, $ssph->{pass}) || die "at auth: ".$smtp->message();
 }
 if($debug) { print STDERR "auth to $ssph->{host} successful\n"; }

##</code><code>##

going to connect to rinjani.parokinet.org
Net::SMTP>>> Net::SMTP(2.31)
Net::SMTP>>>   Net::Cmd(2.29)
Net::SMTP>>>     Exporter(5.58)
Net::SMTP>>>   IO::Socket::INET(1.27)
Net::SMTP>>>     IO::Socket(1.28)
Net::SMTP>>>       IO::Handle(1.24)
Net::SMTP=GLOB(0x88bdfc8)<<< 220 rinjani.parokinet.org ESMTP Postfix
Net::SMTP=GLOB(0x88bdfc8)>>> EHLO localhost.localdomain
Net::SMTP=GLOB(0x88bdfc8)<<< 250-rinjani.parokinet.org
Net::SMTP=GLOB(0x88bdfc8)<<< 250-PIPELINING
Net::SMTP=GLOB(0x88bdfc8)<<< 250-SIZE 10240000
Net::SMTP=GLOB(0x88bdfc8)<<< 250-VRFY
Net::SMTP=GLOB(0x88bdfc8)<<< 250-ETRN
Net::SMTP=GLOB(0x88bdfc8)<<< 250-AUTH PLAIN LOGIN
Net::SMTP=GLOB(0x88bdfc8)<<< 250-AUTH=PLAIN LOGIN
Net::SMTP=GLOB(0x88bdfc8)<<< 250 8BITMIME
connected to rinjani.parokinet.org, going to auth