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();

B<Port> - port to connect to.
Default - 25 for plain SMTP and 465 for immediate SSL.

...
upgrade with C<starttls>.
You can use SSL arguments as documented in L<IO::Socket::SSL>, but it 
+will
usually use the right arguments already.