#!/usr/bin/perl

use strict;
use warnings;
use Net::SMTP::TLS; 

my $mailer = new Net::SMTP::TLS( 
        'your.mail.host', 
        Hello => 'some.host.name', 
        Port => 587,
        User => 'emailuser', 
        Password=> 'password'); 

$mailer->mail('emailuser@your.mail.host'); 
$mailer->to('someonecool@somewhere.else'); 
$mailer->data; $mailer->datasend("Sent thru TLS!"); 
$mailer->dataend; $mailer->quit;