Ayuda con from: de formulario

[linspire]

Estoy aprendiendo un poco de CGI y ya tengo mis primero problemas..

Resulta que estoy terminando un formulario y el problema es que no se como poner que el from sea el correo del usuario que se validó al principio.. no se si me hago entender.. De momento tengo puesta una direccion cualquiera.. aqui les dejo el CGI

#!/usr/bin/perl

use CGI;

read(STDIN, $line, $ENV{'CONTENT_LENGTH'});
my @values = split(/&/, $line);

open(SENDMAIL, "| /usr/sbin/sendmail -t") or die "$0: fatal: could not open sendmail: $!\n";
print SENDMAIL "From: ejemplo\@ejemplo.net\n";
print SENDMAIL "To: cualquiera\@ejemplo.net\n";
print SENDMAIL "Subject: Formulario\n\n";
print SENDMAIL "\n\n";

foreach $key_value (@values) {
my ($key, $value) = split (/=/, $key_value);
$value =~ tr/+/ /;
$value =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack ("C", hex ($1))/eg;

print SENDMAIL "\t$key\t: $value\n"

}

print SENDMAIL "\n\n";
close(SENDMAIL);

Y el otro problem es que los datos que recibo esta todo bien hasta la parte donde me incluye tambien el nombre del boton con su valor..

Me podran ayudar?

[monoswim]

Con el diagrama que estás usando no se puede, deberías primero tomar los datos del formulario, y almacenarlos por ejemplo en un hash y luego hacer esto

print SENDMAIL "From: $data{'mail'} \n";

Checkea el sitio de perlenespanol.com que creo que hay algunos tutoriales que te servirán para estos primeros pasos...