Help for this page

Select Code to Download

Select or download this

# sub process {
sub get_message {
...
    print $sock "STUFF2\r\n";
    print "$$ command: $_";
... rest of routine

Select or download this

Net::SMTP>>> Net::SMTP(2.31)
Net::SMTP>>>   Net::Cmd(2.29)
...
Net::SMTP=GLOB(0x20f758c)<<< 220 Debatable SMTP 0.2 Ready.
Net::SMTP=GLOB(0x20f758c)>>> EHLO localhost.localdomain
Net::SMTP=GLOB(0x20f758c)<<< STUFF1