use Spreadsheet::WriteExcel;     # Create a new Excel workbook
    my $workbook = Spreadsheet::WriteExcel->new("perl.xls");     # Add a worksheet
    $worksheet = $workbook->add_worksheet();