Select Code to Download

    #!/usr/bin/perl -w

    use strict;
...

    print $format->FmtString($cell, $workbook), "\n";

    use strict;
    use Spreadsheet::ParseExcel::SaveParser;
    $oBook = 
...
    my $oWs = $oBook->AddWorksheet('TEST1');
    $oWs->AddCell(10, 1, 'New Cell');
    $oBook->SaveAs('iftest.xls');