Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
print "Content-type: text/html\n\n" or croak 'cannot print line1';
print "Complete";
exit();

Net::SMTP>>> Net::SMTP(2.31)
Net::SMTP>>>   Net::Cmd(2.29)
Net::SMTP>>>     Exporter(5.58)
...
Net::SMTP=GLOB(0x97fc844)<<< 250 SMTPUTF8
Net::SMTP=GLOB(0x97fc844)>>> MAIL FROM:<mygmail@gmail.com>
Net::SMTP=GLOB(0x97fc844)<<< 530 5.7.0 Must issue a STARTTLS command f
+irst. 89sm4313614pfi.2 - gsmtp