#!/usr/bin/perl

use strict;
use warnings;
use Email::Sender::Simple qw(sendmail);
use Email::Sender::Transport::SMTPS;
use Email::Simple::Creator;

my $transport = Email::Sender::Transport::SMTPS->new(
    host 		=> '192.168.130.22',
    port 		=> 465,
    ssl  		=> 'ssl',
    sasl_username	=> 'me',
    sasl_password	=> 'mypasswd',
    debug		=> 1
);


my $message = Email::Simple->create(
	header => [
		From	=> 'Me <me@me.com>',
		To	=> 'Me <me@me.com>',
		Subject => "Simple Test",
	],
	body	=> "Simple test body",
);

try {
	sendmail($message, { transport => $transport });
} catch {
	die "Error sending email: $_";
};