#!/usr/bin/perl

#use MIME::Lite;
use Email::Send;   
use Email::Simple::Creator; # or other Email::

   my $body = sprintf( "\nGateway: 1\nPort: 26C\nIS DEATH\n" ); 
   SlotAvailable_SendEmail($body);

   # ----------------------------------------------------------------
   # Disable All Slot Except
   # ----------------------------------------------------------------

   sub SlotAvailable_SendEmail {
      my $body = $_[0];

      $to = 'ag@interactivos.net.ar';
#     $cc = 'efgh@mail.com';
      $from = 'soporte@interactivos.net.ar';
      $subject = 'Sms Gateway Notification';
      $message = $body;


      my $mailer = Email::Send->new( {
          mailer => 'SMTP::TLS',
          mailer_args => [
              Host => 'box.interactivos.net.ar',
              Port => 587,
              User => 'soporte@interactivos.net.ar',
              Password => 'Dialer1959',
              Hello => 'fayland.org',
          ]
      } );

      my $email = Email::Simple->create(
         header => [
           From    => $from,
           To      => $to,
           Subject => $subject,
         ],
         body => $message,
      );
      eval { $mailer->send($email) };
#   die "Error sending email: $@" if $@;
   }