#!/usr/bin/perl
#~.

use Email::Send;

my $message = <<'__MESSAGE__';
From: me@here.com
To: correo@micorreo.com
Subject: Nuevo boletin

Hay un nuevo boletín
__MESSAGE__

my $mailer = Email::Send->new(
  {
    mailer => 'SMTP',
    mailer_args =>
    [
      Host      => 'relay.upc.es',
      username => 'regglebcn',
      password => 'sdfhc334',
    ]
  }
);
$mailer->send($message);