Pasar variables a un CGI de perl

Hola a todos:

Ahora tengo el siguiente reto :

Quiero llamaar a u CGI de perl , pero quiero mandarle o enviarle 2 variables , lo estoy llamando asi:

Código :

function subir() {
   _global.serie = serie_txt.text;
   _global.equipo = equipo_txt.text;
                getURL("http://server/cgi-bin/upload.cgi?id="+ serie + "equipo=" + equipo ,"_parent", "GET");
}

Obviamente esta funcion la llamo despues de clicar un boton...

El detalle es que me abre la venta upload.cgi, pero en la barra de direccion me pone

http://server/cgi-bin/upload.cgi?id=undefinedequipo=undefined.

Podrian decirme , o explicarme como le paso variables a este cgi.

Gracias

getURL("http://server/cgi-bin/upload.cgi?id="+ serie + "equipo=" + equipo ,"_parent", "GET");


serie no es lo mismo q _global.serie

getURL("http://server/cgi-bin/upload.cgi?id="+ _global.serie + "equipo=" + _global.equipo ,"_parent", "GET");


pero es mejor no usar variables globales

Ok, ya no me pone

http://server/cgi-bin/upload.cgi?id=undefinedequipo=undefined.

ya me muestra las variables que quiero enviar.

pero en mi cgi no me caha las variables es decir si trato de imprimir la variable, no pone nada por que parece que no la cacha:

este es mi codigo:

Código :

#!/usr/bin/perl -w


use CGI qw/:standard/;
use DBI;
use CGI::Carp qw/fatalsToBrowser/;

my $id= param('id');
#print "ID:$id";
my $file = param('upload');
my $tipo = param('tipo');
my $equipo = param('equipo');
my $cve = param('cve');
my $fecha_sale= param('sale');
my $id_equipo= param('equipo');
my $grabar="";
my $dbh;
my $reg;
my $dsn="dbi:Pg:dbname=metrologia";  
my $usuario="mpena";
my $clave="otro";                 
print header,
    start_html('ADICIONAR ARCHIVOS DE CALIBRACION'),
    h1('Adicionar Reporte al Registro de Novedades:'),
    b('EQUIPOS: '),($id_equipo); aqui solo me imprime la etiqueta "EQUIPOS" la variable $id_equipo no pone nada
    b('ID: '), ($id); 
if ($file ne ''){ $grabar="ok"; }
if ($grabar ne "ok"){
   print_form();
}
else{
   print_results();
}
print end_html;

sub print_form {
    print start_multipart_form(),
   '<b>TIPO DE REPORTE:&nbsp;&nbsp;</b>',
       popup_menu(-name=>'tipo',
      -values=>['inf',
         'pre',
         'def',
         'mex'],
      -default=>'def',
      -labels=>{'inf'=>'Nota Informativa',
         'pre'=>'Reporte Preliminar',
         'def'=>'Reporte Definitivo Subarea',
         'mex'=>'Reporte Definitivo Mexico'}),br,br,
   '<b>NOMBRE DEL ARCHIVO:&nbsp;&nbsp;</b>',
       filefield(-name=>'upload',-size=>99),br,
       hidden(-name=>'id',-value=>$id),br,
       hidden(-name=>'equipo',-value=>$equipo),br,
       hidden(-name=>'cve',-value=>$cve),br,
       hidden(-name=>'sale',-value=>$fecha_sale),br,
       submit(-label=>'Guardar Reporte'),
       button(-name=>'regresar',-value=>'Regresar',-onClick=>'history.back()'),
       end_form;
}

sub print_results {
    my $length;
    if (!$file) {
   print "<b>Por Favor</b>, Introducir la ruta del Reporte";
   return;
    }
    print h2('Ruta del Reporte:'),$file;
    print h2('Tipo de Archivo:'),
    uploadInfo($file)->{'Content-Type'};
    &guardar;
  #  &registrar;
    print "<BR><BR>";
    print button(-name=>'regresar',-value=>'Regresar',-onClick=>'history.back()');
}

sub guardar{
   $extension=substr($file, -3,3);
   #$path="/home/webvista/public_html/" . $tipo . $id . ".pdf";
        $path="/var/www/html/metrologia/example/img/" . $id . "." . $extension;
   #$path="/var/www/html/metrologia/example/img/" . $tipo . $id . "." . $extension;
   print "RUTA:$path <br>";
   open (SAVE,">$path") || die $!;
   while (read($file,$data,1024)){
      print SAVE $data;
   }
   close SAVE;
}

Echenme la mano
Gracias

Prueba con:

Código :

getURL("http://server/cgi-bin/upload.cgi?id="+ _global.serie + "&equipo=" + _global.equipo , _parent, "GET");

Recuerda usar & para enviar varias variables.

Ciao!