Abrir archivo

[ariquitau]

Hola a todos,

Tengo el siguiente problema, cuando voy a descargar un archivo (perl), hago la siguiente rutina:

if(open FICHERO, $ruta_datos){
while ( <FICHERO>) { $buffer.=$_; }
close FICHERO;
#Envia fichero
print "Content-Type: application/zip\n";
print "Content-Length: " . length( $buffer ) . "\n";
print "Content-Disposition: attachment; filename=" . $fichero_nombre . "\n\n";
print $buffer;
exit(0);
} else {
# Error
return -1;
}

El problema que tengo es que me abre la ventana donde me pregunta si quiero abrir o guardar, si pulso guardar todo va bien, sin embargo si pulso abrir vuelve a sacarme la venta de nuevo. En esta segunda ventana si que me abre el archivo.

A alguien se le ocurre qué es lo que puede estar pasando??

Muchas Gracias
Saludos