Select Code to Download

 if($debug) { print STDERR "going to connect to $ssph->{host}\n"; }
 my $smtp= Net::SMTP->new
...
  $smtp->auth($ssph->{user}, $ssph->{pass}) || die "at auth: ".$smtp->
+message();
 }
 if($debug) { print STDERR "auth to $ssph->{host} successful\n"; }

going to connect to rinjani.parokinet.org
Net::SMTP>>> Net::SMTP(2.31)
...
Net::SMTP=GLOB(0x88bdfc8)<<< 250-AUTH=PLAIN LOGIN
Net::SMTP=GLOB(0x88bdfc8)<<< 250 8BITMIME
connected to rinjani.parokinet.org, going to auth