sub main {
  use Net::SMTP;
  $SMTPServer = 'localhost' unless (defined $SMTPServer);
  			
  BEGIN {
      $| = 1;
      require MIME::Base64;
      require Authen::SASL;
  }
  
  my $host = $SMTPServer;
  my $user = $mainlogin;
  my $pass = $mainpwd;
  
  my $NetSMTP = Net::SMTP->new(
             Host  => $host,
             Time  => 30,
             Debug => 1,                     
  );
  
  my $sasl;
  my $mechanisms =  ['AUTH', 500];
  print "starting auth<br>";
  die "Couldn't auth sasl login: $!" unless \&auth;
  
  $NetSMTP->mail($emailFrom);
  $NetSMTP->to($LibDef{$LibName}[1]);
  $NetSMTP->data();
  $NetSMTP->datasend('test text');
  close (MAIL);
  
  print "<br><br><b>$REQUESTPAGE_TEXT_THANKYOU</b>";
}

sub auth {
    my $sasl = Authen::SASL->new(
        mechanism => $mechanisms,
        debug => 1, 
        callback => { 
            user => $user, 
            pass => $pass,
            authname => $user,
    );
}