my $filename = $fdat{status_sprx_file};
 my $tmpdir = '/tmp/sprx';

my $add_wl = $fdat{cc_download} eq 'cc_download' ? 1 : 0;
 my ($wlFile, $ext) = $filename =~ /(.+)\.(xls)/ if $add_wl == 1;

         if ($add_wl == 1)
         {
             $wlFile .= " Worklist" . "." . $ext;
         }



     my $tmpdir = '/tmp/sprx';
     mkdir $tmpdir;
     $fdat{status_sprx_file} =~ /([^\\\/]+)$/;
     $filename = $1;

 my $uploadFile = $cgi->upload("status_sprx_file");

      my $buffer;
      open UPLOADFILE, ">", "$tmpdir/$uploadFile" or die "Error: $!";

         binmode UPLOADFILE;

         while (<$uploadFile>)
         {
             print UPLOADFILE;
         }

         close UPLOADFILE;

my $parser = new Spreadsheet::ParseExcel::SaveParser if $add_wl == 1;
my $wlTemplate = $parser->Parse("$tmpdir/$filename") if $add_wl == 1;

my $worksheet;
$worksheet = $workbook->worksheet(0);

 while (1)
         {
             print STDERR "\nROW: $row\n" if $debug_sprx;
             my $c = $worksheet->get_cell($row, $check_col);
             my $format;
             my $token = undef;
             my $invCustNumCell;

             if (not $c)
             {
                 last if ++$blank_rows >= 15;
                 $row++;
                 next;
             }
             else
             {
                $blank_rows = 0;
             }

             my $str = $c->unformatted();
             ($str) = cleanString($str);

             if ($str eq 'CUSTOMER ID' and $add_wl == 1)
             {
                 print STDERR "adding cell\n";
                $wlTemplate->AddCell(0, $row, 11, 'WORKLIST');
             }
}

 if ($add_wl == 1)
         {
            my $wlWorkbook;

            local $^W = 0;

            $wlWorkbook = $wlTemplate->SaveAs("$tmpdir/$wlFile");
            $wlWorkbook->close();

         }

if ($add_wl == 1)
         {

        print $cgi->header(-access_control_allow_headers => 'X-Requested-With',
                           -access_control_allow_origin => '*',
                           -content_disposition => "filename=$wlFile",
                           -content_type => 'application/vnd.ms-excel',
                       );
            my $content = read_file("$tmpdir/$wlFile");
            print $content;
            #unlink("$tmpdir/$wlFile");
        }