#!/usr/bin/perl

use strict;
use warnings;

use Net::SMTP;

my $smtp = Net::SMTP->new(
    Host => 'mailhost.from.com', 
    Hello => 'thishost.from.com'
  );
$smtp->mail('from@from.com');
$smtp->to('to@to.com');
$smtp->data('this is the text of the message');
$smtp->quit;