Enviar correo CGI

[jferrero]

Lo siguiente no lo he probado. Está extraído de otro ejempo de otro foro.

Código:

#!/usr/bin/perl
use CGI ':standard';
use CGI::Carp qw(fatalsToBrowser);
use MIME::Entity;

# Comprobamos si el usuario nos ha pasado algún parámetro
if ( param() ) {
    my $nombre  = param('nombre');
    my $empresa = param('empresa');
    my $telefono = param('telefono');
    my $email = param('email');
    my $mensaje = param('mensaje');

    # Creamos el correo electrónico
    my $msg = MIME::Entity->build(
                    Type    => "multipart/mixed",
                    From    => '[email protected]',
                    To      => '[email protected]',
                    Subject => "Mensaje de $nombre",
    );

    # Adjuntamos el mensaje si lo hay
    if ( $mensaje ) {
        $msg->attach(
                    Data    => [ join("\r\n", "Empresa: $empresa", "Telefono: $telefono", "Correo electronico: $email", "Mensaje: $mensaje"), "\r\n" ],
        );
    }

    # Envío, con el smtpsend de Mail::Internet
    $msg->smtpsend(
                   Host    => 'mail.otrawebtuya.net',
                   Hello   => mail.otrawebtuya.net',
                   MailFrom=> '[email protected]',
   );
}

print header;
__END__

No es una docena de líneas, pero casi