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?