#!/usr/bin/perl -w

    use strict;
    use Spreadsheet::WriteExcel;
    use IO::Scalar;

    # Write an Excel file to a string via IO::Scalar.
    # Refer to the IO::Scalar documentation for further details.
    #
    my $a;
    tie *XLS, 'IO::Scalar', \$a;

    # Create a spreadsheet and write something to it.
    #
    my $workbook  = Spreadsheet::WriteExcel->new(\*XLS);
    my $worksheet = $workbook->addworksheet();
    $worksheet->write(0, 0,  "Hi Excel!");
    $workbook->close(); # This is required

    # The Excel file is now in $a. As a demonstration, print it to a file.
    #
    open TMP, "> test.xls";
    binmode(TMP);
    print TMP $a;