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";
   }

Can't locate Mail/Sendmail.pm in @INC (you may need to install the Mail::Sendmail module) (@INC contains: /etc/perl /usr/local/lib/perl/5.18.2 /usr/local/share/perl/5.18.2 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.18 /usr/share/perl/5.18 /usr/local/lib/site_perl .) at probe.pl line 1.
BEGIN failed--compilation aborted at probe.pl line 1.

 (you may need to install the Mail::Sendmail module) 

sf::FloatRect rect = rec.getGlobalBounds();
        sf::FloatRect rect2 = rec2.getGlobalBounds();
 
        if(rect.intersects(rect2)){
 
            if(rec.getPosition().x<400){
                std::cout << rec.getPosition().x << std::endl;
                rec.setPosition(350, rec.getPosition().y);
            }
            if(rec.getPosition().x>400){
                rec.setPosition(450, rec.getPosition().y);
            }
            if(rec.getPosition().y<400){
                rec.setPosition(rec.getPosition().x, 350);
            }
            if(rec.getPosition().y>400){
                rec.setPosition(rec.getPosition().x, 450);
            }
 
        }

#include <SFML/Graphics.hpp>
 
int main(){
    //Creamos la ventana
    sf::RenderWindow window(sf::VideoMode(800, 600), "Colision");
 
    //Rectangualo
    sf::RectangleShape rec(sf::Vector2f(50, 50));
    rec.setFillColor(sf::Color::Cyan);
 
    //Variables colisiones
    int pared_x = 1, pared_y = 1;
    int x_incremento = 2, y_incremento = 2;
    int pared_izq = 0, pared_der = 750;
    int pared_arriba = 0, pared_abajo = 550;
 
    window.setFramerateLimit(200);
 
    //Si la ventana está abierta
    while(window.isOpen()){
        //Creamos un evento
        sf::Event ventana;
        //Llamamos a los eventos
        while(window.pollEvent(ventana)){
            //Cerramos la ventana cuando se solicite
            if(ventana.type == sf::Event::Closed){
                window.close();
            }
        }
 
        //Movimiento rectangulo
        if(sf::Keyboard::isKeyPressed(sf::Keyboard::Up)){
            rec.move(0, -1);
        }
        if(sf::Keyboard::isKeyPressed(sf::Keyboard::Down)){
            rec.move(0, 1);
        }
        if(sf::Keyboard::isKeyPressed(sf::Keyboard::Left)){
            rec.move(-1, 0);
        }
        if(sf::Keyboard::isKeyPressed(sf::Keyboard::Right)){
            rec.move(1, 0);
        }
 
        //Colisiones
        if(pared_x <= pared_izq){
            x_incremento =- x_incremento;
        }
        if(pared_x >= pared_der){
            x_incremento =- x_incremento;
        }
        if(pared_y <= pared_arriba){
            y_incremento =- y_incremento;
        }
        if(pared_y >= pared_abajo){
            y_incremento =- y_incremento;
        }
 
        pared_x = pared_x + x_incremento;
        pared_y = pared_y + y_incremento;
 
        //Limpiamos ventana
        window.clear();
 
        //Dibujamos el rectangulo
        window.draw(rec);
 
        //Actualizamos ventana
        window.display();
 
    }
}

#include <SFML/Graphics.hpp>
 
int main(){
    //Crea la ventana de 300x300
    sf::RenderWindow window(sf::VideoMode(300, 300), "Ventana SFML");
 
    //Creamos una textura en este caso un tom
    sf::Texture tom;
    //Cargamos la textura de un archivo
    if(!tom.loadFromFile("tom.png")){
        //Si hay un error salimos
        return EXIT_FAILURE;
    }
 
    sf::Sprite sprite;
    sprite.setTexture(tom);
    sprite.setTextureRect(sf::IntRect(0, 0, 32, 32));
 
    //Si la ventana esta abierta
    while(window.isOpen()){
        //Creamos un evento llamado ventana
        sf::Event ventana;
        //Llamamos al evento ventana
        while(window.pollEvent(ventana)){
            //Se cierra la ventana cuando lo pedimos
            if(ventana.type == sf::Event::Closed){
            //Cerramos la ventana
                window.close();
            }
        }
 
        //Movemos arriba
        if(sf::Keyboard::isKeyPressed(sf::Keyboard::Up)){
            sprite.move(0, -1);
        }
        //Movemos abajo
        if(sf::Keyboard::isKeyPressed(sf::Keyboard::Down)){
            sprite.move(0, 1);
        }
        //Movemos a la izquierda
        if(sf::Keyboard::isKeyPressed(sf::Keyboard::Left)){
            sprite.move(-1, 0);
        }
        //Movemos a la derecha
        if(sf::Keyboard::isKeyPressed(sf::Keyboard::Right)){
            sprite.move(1, 0);
        }
 
        //Limpiamos la ventana
        window.clear();
 
        //Dibujamos 
        window.draw(sprite);
        //Actualizamos la ventana
        window.display();
    }
 
 
    return 0;
}