problem with input field !!

Hi friends, I have a problem with a WAP Perl CGI and I have spent a LOT of time without any conclusion.... can anybody helpme ??

this is the CGI:


#!/usr/bin/perl -w

use CGI qw(:standard);
$query = new CGI;
$message=$query->param('message');
&init;
&header;

#$user = param('user');
#$password = param('password');
#$host = param('host');
$fr = param('fr');
$t = param('t');
$sub = param('sub');
$cgi = param('cgi');
#$message = param('message');
print "<card id="card1" title="Correo $user" newcontext="true">";
print "n";
print "<p align="left">n";

print "Mensage:<br/>";
print "<input name="message" type="text" size="20" value=""/>";
print "<br/>";

$men = $message;

$ENVI =
"http://echelon.eupvg.upc.es/~santana/emailfor2.cgi?message=${men}&to=${fr}&subject=${sub}&from=${t}";

print "<anchor title="Enviar">Enviar Respuesta<go
href="$ENVI"></go>";
print "</anchor><br/>n";
print "<br/>";

$POP39MC6 =
"http://echelon.eupvg.upc.es/~santana/POP39MC6.cgi?host=${host}&user=${user}&password=${password}&cgi=${cgi}";
print "<anchor title="Volver">Volver $i<go href="$POP39MC6"></go>";
print "</anchor><br/>n";


&footer;
exit;

#*******************************************************#
# SUB ROUTINES #
#*******************************************************#
sub init{
print "Content-type: text/vnd.wap.wmlnn";
}

sub header{
print '<?xml version="1.0"?>';
print "n";
print '<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">';
print "n";
print "<wml>n";
}

sub footer{
print "</p>n</card>n</wml>n";
}


BUT it doesn´t work!!

When I enter a text in the message input field, all seems perfect, BUT when I do
$ENVI =
"http://echelon.eupvg.upc.es/~santana/emailfor2.cgi?message=${men}&to=${fr}&subject=${sub}&from=${t}";

the message variable is sent ALLWAYS whit nothing inside. This variable must carry the text that I input, but it send nothing !!!

Can anybody help me pleeeeease !!!!!

I will really apreciatre this help because I have spent more than 2 days thinking about..


Javi

>>http://echelon.eupvg.upc.es/~santana/emailfor2.cgi?message=${men}&to=${fr}&subject=${sub}&from=${t}

Just remove all those {}.