Help for this page

Select Code to Download


  1. or download this
    
  sub auth {
...
      require Authen::SASL;
    } or \$self->set_status(500, ["Need MIME::Base64 and Authen::SASL 
+todo auth"]), return 0;
  2. or download this
    
  #!/use/bin/perl
...
  Net::SMTP=GLOB(0x1b0b964)>>> QUIT
  Net::SMTP=GLOB(0x1b0b964)<<< 221 <smtp.host.com>