#!/usr/bin/perl -w

use strict;
use MIME::Lite;
use Email::Sender::Transport::SMTP;

my $ADMEMAIL = 'compbio@eead.csic.es';
my $MAILSERVER = 'smtpin.csic.es'; # '132.248.220.221'; #maya

send_email($MAILSERVER,$ADMEMAIL,'bcontreras@eead.csic.es','prueba','(vacio)'); # pruebas

sub send_email
{
        my ($host,$sender,$address,$subject,$text) = @_;

        ### login
        my $transport = Email::Sender::Transport::SMTP->new(
            host => $host,
            ssl  => 'starttls',
            sasl_username => 'eead_compbio',
            sasl_password => '4lfr4nc4d3jusl1b0l',
        debug => 0, # or 1
   );

         use Email::Simple::Creator; 
    my $email = Email::Simple->create(
                header => [
                From    => $sender,
                To      => $address,
                Subject => $subject,
            ],
            body => $text,
        );   

        use Email::Sender::Simple qw(sendmail);
        sendmail($email, {transport => $transport});
}