Shell Programming and Scripting

#!/usr/bin/perl -w
use SendMail;

$smtpserver          = "exchange_server.com";
$smtpport            = 25;
$sender              = "ABC\@def.com";
$subject             = "TESTING SMTP Server";
$recipient           = "mymailid\@def.com";
$header              = "X-Mailer";
$headervalue         = "Perl SendMail Module 1.09";
$mailbodydata        = "This is a testing mail.";
$userid              = "ABC\@AAA.com";
$password            = "passwd";


$obj = new SendMail($smtpserver,$smtpport);
$obj->setDebug($obj->ON);
$obj->From($sender);
$obj->Subject($subject);
$obj->To($recipient);
$obj->setMailHeader($header, $headervalue);
$obj->setMailBody($mailbodydata);
$obj->setAuth($obj->AUTHLOGIN, $userid, $password);
#$obj->setAuth($obj->AUTHPLAIN, $userid, $password);

if ($obj->sendMail() != 0)
{
    print "Error in Sending Mail.\n";
    print $obj->{'error'}."\n";
    exit -1;
}
else
{
    print "Done\n\n";
    exit 0;
}

220 in-ex004.groupinfra.com Microsoft ESMTP MAIL Service, Version: 6.0.3790.3959 ready at  Mon, 5 Oct 2009 11:40:52 +0530
EHLO mymachine.com
250-exchange_server.com Hello [111.222.3.1]
250-TURN
250-SIZE 20971520
250-ETRN
250-PIPELINING
250-DSN
250-ENHANCEDSTATUSCODES
250-8bitmime
250-BINARYMIME
250-CHUNKING
250-VRFY
250-X-EXPS GSSAPI NTLM
250-AUTH GSSAPI NTLM
250-X-LINK2STATE
250-XEXCH50
250 OK
AUTH LOGIN
Error in Sending Mail.
504 5.7.4 Unrecognized authentication type.

220 exchange_server.com Microsoft ESMTP MAIL Service, Version: 6.0.3790.3959 ready at  Mon, 5 Oct 2009 11:45:43 +0530
EHLO mymachine.com
250-exchange_server.com Hello [111.222.3.1]
250-TURN
250-SIZE 20971520
250-ETRN
250-PIPELINING
250-DSN
250-ENHANCEDSTATUSCODES
250-8bitmime
250-BINARYMIME
250-CHUNKING
250-VRFY
250-X-EXPS GSSAPI NTLM
250-AUTH GSSAPI NTLM
250-X-LINK2STATE
250-XEXCH50
250 OK
MAIL FROM: <ABC\@def.com>
454 5.7.3 Client does not have permission to submit mail to this server.
RCPT TO: <mymailid\@def.com>
DATA
To: mymailid\@def.com
From: ABC\@def.com
Subject: TESTING SMTP Server
X-Mailer: Perl SendMail Module 1.09

This is a testing mail.

.
QUIT
The mail has been sent to 1 person/s successfully.
Done

250-AUTH GSSAPI NTLM