Select Code to Download

#!/bin/perl

...
$smtp->quit;

print "clearSMS( );";

Net::SMTP>>> Net::SMTP(2.29), referer: [URL]
Net::SMTP>>>   Net::Cmd(2.26), referer: [URL]
...
Net::SMTP=GLOB(0x3f6c6c)<<< 250 2.0.0 r2FDYPUP002139 Message accepted 
+for delivery, referer: [URL]
Net::SMTP=GLOB(0x3f6c6c)>>> QUIT\r, referer: [URL]
Net::SMTP=GLOB(0x3f6c6c)<<< 221 2.0.0 [MAIL_RELAY] closing connection,
+ referer: [URL]

Net::SMTP>>> Net::SMTP(2.29), referer: [URL]
Net::SMTP>>>   Net::Cmd(2.26), referer: [URL]
...
250 2.0.0 r2FDY0fZ001443 Message accepted for delivery, referer: [URL]
Net::SMTP=GLOB(0x3f6c8c)>>> QUIT\r, referer: [URL]
Net::SMTP=GLOB(0x3f6c8c)<<< 221 2.0.0 [MAIL_RELAY] closing connection,
+ referer: [URL]