use Mail::Sendmail;
 
   %mail=(To => 'su_direccion@alli.com',
                From => 'mi_direccion@aqui.com',
                Message => "Mensaje de prueba"
         );
 
   if(sendmail %mail){
      print "Mail enviado correctamente.\n";
   }
   else{
      print "Error al enviar mail: $Mail::Sendmail::error\n";
   }

use Mail::Sendmail;
 
  print "Testing Mail::Sendmail version $Mail::Sendmail::VERSION\n";
  print "Default server: $Mail::Sendmail::mailcfg{smtp}->[0]\n";
  print "Default sender: $Mail::Sendmail::mailcfg{from}\n";
 
  %mail = (
      To      => 'correo@gmail.com',
      From    => 'correo@gmail.com',
      Bcc     => 'Someone <correo@gmail.com>, Someone else her@there.com',
      # only addresses are extracted from Bcc, real names disregarded
      Cc      => 'Yet someone else <correo@gmail.com>',
      # Cc will appear in the header. (Bcc will not)
      Subject => 'Test message',
      'X-Mailer' => "Mail::Sendmail version $Mail::Sendmail::VERSION",
  );
 
 
  $mail{Smtp} = 'smtp.gmail.com';
  $mail{'X-custom'} = 'My custom additionnal header';
  $mail{'mESSaGE : '} = "The message key looks terrible, but works.";
  # cheat on the date:
  $mail{Date} = Mail::Sendmail::time_to_date( time() - 86400 );
 
  if (sendmail %mail) { print "Mail sent OK.\n" }
  else { print "Error sending mail: $Mail::Sendmail::error \n" }
 
  print "\n\$Mail::Sendmail::log says:\n", $Mail::Sendmail::log;

use Mail::Sendmail;
 
      $mail{smtp} = [qw(smtp.gmail.com)];
      $mail{from} = 'correo@gmail.com';
      $mail{port} = 587;
 
      %mail=(To => 'correo@gmail.com',
                   From => 'correo@hotmail.com',
                   Message => "Mensaje de prueba"
            );
 
      if(sendmail %mail){
         print "Mail enviado correctamente.\n";
      }
      else{
         print "Error al enviar mail: $Mail::Sendmail::error\n";
      }

use Mail::Sendmail;
 
      $mail{smtp} = [qw(smtp.gmail.com)];
      $mail{port} = 587;
 
      %mail=(To => 'correo',
                   From => 'correo',
                   Message => "Mensaje de prueba"
            );
 
      if(sendmail %mail){
         print "Mail enviado correctamente.\n";
      }
      else{
         print "Error al enviar mail: $Mail::Sendmail::error\n";
      }

    #!/usr/bin/perl
    use Mail::Sendmail;
 
    my %mail = (
       From    => 'sanchezgarciatomas@gmail.com',
       To      => 'sanchezgarciatomas@gmail.com',
       Message => "Este es un mensaje muy cortito",
    );
 
    if(sendmail %mail){
       print "Mail enviado";
    }
    else{
       sendmail(%mail) or die $Mail::Sendmail::error;
    }