Select Code to Download

Net::SMTP::auth(/usr/share/perl/5.8/Net/SMTP.pm:114):
114:          die "auth(username, password)" if not length $username;
...
 use O inhibit_exit to avoid stopping after program termination,
 h q, h R or h O to get additional info.

#!/usr/bin/perl
#####################################################################
...
print "</form>";
close(LOG);

if (ref($username) and UNIVERSAL::isa($username,'Authen::SASL')) {
  $sasl = $username;
...
        authname => $username,
        });
}