binmode(XLS);

##</code><code>##

  print header("application/vnd.ms-excel");
  binmode(STDOUT);
  my $wb = SpreadSheet::WriteExcel->new("-");
  ...

##</code><code>##

 Content-Disposition: attachment; filename=text.xls