pero el servidor no me lo quiere aceptar pero bueno este es el codigo y solo so hice para ver si se podia pero no quiere por nada del mundo ESPERO QUE ME PUEDAN AYUDAR.
#!/usr/bin/perl -c -w
use strict;
my $cosa=$ENV{QUERY_STRING}=<STDIN>;
if ($cosa gt "casa"){
print "Content-type: text/html\r\n\r\n";
print <<END_OF_PAGE;
<html>
<head><title>ESTA ES MI CASA</title>
</head>
<body>
HOLA ESTA ES MI CASA
</body>
</html>
END_OF_PAGE
}
if ($cosa gt "mi"){
print "Content-type: text/html\r\n\r\n";
print <<END_OF_PAGE;
<html>
<head><title>ESTE SOY YO</title>
</head>
<body>
HOLA ESTE SOY YO
</body>
</html>
END_OF_PAGE
}
no se si este mal pero el servidor me indica que los headers estan mal (error 500) pero al momento de compilar lo hace bien.
Espero que me puedan ayudar a resolver este pequeño problema.
GRACIAS.
Mode Lineal
