Hi again, I am returning to my old post here. I tried the code you suggested, and I get an error, hopefully someone can help me with it. I have the debug on, so here is the webpage out put, my code follows:

SMTP authNet::SMTP>>> Net::SMTP(2.29) Net::SMTP>>> Net::Cmd(2.26) Net:
+:SMTP>>> Exporter(5.58) Net::SMTP>>> IO::Socket::INET(1.29) Net::SMTP
+>>> IO::Socket(1.29) Net::SMTP>>> IO::Handle(1.25) Net::SMTP=GLOB(0x2
+a152d4)<<< 220 vinyl4.sentex.ca ESMTP Sendmail 8.14.5/8.14.5; Mon, 2 
+Jul 2012 14:48:57 -0400 (EDT) Net::SMTP=GLOB(0x2a152d4)>>> EHLO local
+host.localdomain Net::SMTP=GLOB(0x2a152d4)<<< 250-vinyl4.sentex.ca He
+llo 50-56-96-131.static.cloud-ips.com [50.56.96.131], pleased to meet
+ you Net::SMTP=GLOB(0x2a152d4)<<< 250-ENHANCEDSTATUSCODES Net::SMTP=G
+LOB(0x2a152d4)<<< 250-PIPELINING Net::SMTP=GLOB(0x2a152d4)<<< 250-8BI
+TMIME Net::SMTP=GLOB(0x2a152d4)<<< 250-SIZE 30000000 Net::SMTP=GLOB(0
+x2a152d4)<<< 250-DSN Net::SMTP=GLOB(0x2a152d4)<<< 250-ETRN Net::SMTP=
+GLOB(0x2a152d4)<<< 250-AUTH PLAIN LOGIN DIGEST-MD5 Net::SMTP=GLOB(0x2
+a152d4)<<< 250-STARTTLS Net::SMTP=GLOB(0x2a152d4)<<< 250-DELIVERBY Ne
+t::SMTP=GLOB(0x2a152d4)<<< 250 HELP starting auth

sending from [michael@thewhitings.ca] to [michael@thewhitings.ca]Net::
+SMTP=GLOB(0x2a152d4)>>> MAIL FROM: Net::SMTP=GLOB(0x2a152d4)<<< 250 2
+.1.0 ... Sender ok Net::SMTP=GLOB(0x2a152d4)>>> RCPT TO: Net::SMTP=GL
+OB(0x2a152d4)<<< 550 5.7.1 ... Relaying denied. Proper authentication
+ required. Net::SMTP=GLOB(0x2a152d4)>>> DATA Net::SMTP=GLOB(0x2a152d4
+)<<< 503 5.0.0 Need RCPT (recipient) 
Text:To: michael@thewhitings.ca 
Software error:
Can't call method "datasend" on an undefined value at C:\inetpub\wwwro
+ot\dev\abc.exe line 1354.
[download]

You can see the Relaying denied. Proper authentication required. error in there. It seems to be getting past the 'die' statement when running the &auth subroutine, and then choking when it tries to send data. Here is my code currently:

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,
    );
}
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.