my $tmpdir = File::Spec->tmpdir();
my ($filehandle, $filename) = File::Temp::tempfile( "generated_XXXXXX", DIR => $tmpdir, SUFFIX => '.xls', UNLINK => 1);
   
    confess "Error!" if !$filehandle;
    
    binmode $filehandle; #Spreadsheet::WriteExcel only worked with binmode