use Spreadsheet::WriteExcel;


# Create an excel file binary
&create_excel_file ($csv_file_name, $xls_file_name);


## This sub routine creates an xls binary from the csv file data
sub create_excel_file {

# create Excel binary format outfile from CSV
my ($csv_file, $xls_file) = @_;
my $workbook  = "";
my $worksheet = "";
my $row = 0;
my $column = 0;

    # Sending the csv file information to xls format
    open (CSV, $csv_file) or die "Error opening $csv_file: $!";

    $workbook  = Spreadsheet::WriteExcel -> new($xls_file);
    # Add a worksheet to the workbook file
    $worksheet = $workbook -> addworksheet();
    # Or add a named worksheet to create @worksheets
    #$worksheet = $workbook->addworksheet($sheetname);
    #activate($sheetname)

    # While there is data in the csv file
    while (<CSV>) {
           chomp;
           # Split the fields on only the , and space seperators
           my @FIELDS = split(', ', $_);
           $column = 0;
           foreach my $token (@FIELDS) {
           # Write out the row and column and token to each row
              $worksheet -> write($row, $column, $token);
              $column++;
          }
           $row++;
   }

    # my $format1 = $workbook -> addformat();
    #    $format1 -> set_bold();
    #    $format1 -> set_align('center');
    #    $format1 -> set_border();
    # $worksheet -> set_row(0, undef, $format1);

    $workbook  -> close() or die "Error closing $workbook: $!";

    # WARNING .... This code will delete the CSV
    # Delete the csv file to save space
    unlink ($csv_file);
}
[download]