I have a CGI that calls a C++ executable (running on AIX) that generates a report in XML that applies a stylesheet already present on the user's local machine.

I then feed the report back to the browser with the following function.

sub retrieveFile
  {
    my $file = shift;
 

    if(not -e $file)
      {
        croak "Could not locate file: $file)";
      }

    if(not open(FH, $file))
      {
        croak "Could not open file: $file";
      }
    my $filesize = -s $file;

        print $cgi->header(-type=>'application/vnd.ms-excel',
                           -Content-Disposition=>"attachment; filename
+=$file", 
                           -Content_Length=>$filesize);

    while(<FH>)
      {
        print;
      }

    close FH;
  }
[download]

So when this is run, you get the standard "Open or Save" windows dialog.

If you choose "Save" and then open it, you get the dialog to apply the stylesheet. It opens in Excel and all is right with the world.

But if you choose "Open", you get the dialog, then an error message that says: "The download of the specified resource has failed.", then you get the stylesheet dialog AGAIN, then the file opens and looks fine.

Since the file is fine when you save, I don't see how the problem could be in the XML being generated, which means that the problem is in my Perl somewhere.

Any thoughts, please? Thanks.