Select Code to Download

Select or download this
```
#!/usr/bin/perl

...
$smtp->quit;

}
```

Net::SMTP=GLOB(0x81b38e0)<<< 250-puffin.mail.pas.earthlink.net Hello n
+ode-423a0c29.lga.onnet.us.uu.net [66.58.12.41]
Net::SMTP=GLOB(0x81b38e0)<<< 250-SIZE 10485760
...
Net::SMTP=GLOB(0x81b38e0)<<< 250-STARTTLS
Net::SMTP=GLOB(0x81b38e0)<<< 250 HELP
Can't locate object method "_secflags" via package "Authen::SASL::Perl
+::CRAM_MD5" at /usr/lib/perl5/site_perl/5.8.0/Authen/SASL/Perl.pm lin
+e 32.