#!/usr/bin/perl

use strict;
use warnings;

use Email::MIME;
use Email::Sender::Simple;

my ($from, $to, $subject, $body) = ('some','values','go','here');

my $message = Email::MIME->create(
    header_str => [
        From	=> $from,
        To		=> $to,
        Subject	=> $subject
    ],
        attributes => {
        encoding=> 'quoted-printable',
        charset	=> 'UTF-8'
    },
    body_str => $body
);

Email::Sender::Simple->send( $message );

print "Success!";