Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use MIME::Base64;
...

$smtp->datasend("AUTH PLAIN " . $EncodedLogin);
$smtp->dataend();
  2. or download this
    Net::SMTP::SSL>>> Net::SMTP::SSL(1.01)
Net::SMTP::SSL>>>   IO::Socket::SSL(1.22)
...
Net::SMTP::SSL=GLOB(0x8413678)>>> AUTH PLAIN base_64_encoded_string_of
+_my_username_and_password==
Net::SMTP::SSL=GLOB(0x8413678)>>> .
Net::SMTP::SSL=GLOB(0x8413678)<<< 235 2.7.0 Accepted
  3. or download this
    if($smtp->response_code==235){
print("Accepted!\n");
...
else{
printf("Auth failed\n");
}