CGI - Formulario de correo

<form action="enviar_correo.cgi" method="post" id="form">

    <div class="indent-col">

        <span class="txt2">Nombre *</span>

        <div class="h"><input type="text" name="nombre" required /></div>

        <span class="txt2">E-mail *</span>

        <div class="h"><input type="email" name="email" required /></div>

        <span class="txt2">Ciudad</span>

        <div class="h"><input type="text" name="ciudad" /></div>

        <span class="txt2">Comentarios</span>

        <div class="h1"><textarea name="comentarios" cols="30" rows="4"></textarea></div>

        <div class="fright">

            <a href="#" class="button" onclick="document.getElementById('form').reset()">Reset</a>

            <a href="#" class="button" onclick="document.getElementById('form').submit()">Send</a>

        </div>

    </div>

</form>

#!/usr/bin/perl

use strict;

use warnings;

use Email::Sender::Simple qw(sendmail);

use Email::Simple;

use Email::Simple::Creator;

my $nombre = $ENV{'QUERY_STRING'};

my $email = $ENV{'QUERY_STRING'};

my $ciudad = $ENV{'QUERY_STRING'};

my $comentarios = $ENV{'QUERY_STRING'};

my $mensaje = "Nombre: $nombre\n";

$mensaje .= "E-mail: $email\n";

$mensaje .= "Ciudad: $ciudad\n";

$mensaje .= "Comentarios: $comentarios\n";

my $email = Email::Simple->create(

    header => [

        From    => 'tu@correo.com',

        To      => 'destino@correo.com',

        Subject => 'Nuevo formulario recibido',

    ],

    body => $mensaje,

);

sendmail($email);