Select Code to Download

sub Mail::Sender::Auth::LOGIN {
    my $self = shift();
...
    if (!/^[123]/) { return $self->Error(LOGINERROR($_)); }
    return;
}

sub newmail {
  my ($self, $scriptname, $sender, @recipients) = @_;
...
  $self->output_trace_headers($scriptname);
}