#!perl -w
use strict;

my $tmpl = ExcelWriter->new();
my @row = ( 1, 2, 3 );
$tmpl->writerow( \@row );

BEGIN {

    package ExcelWriter;
    use Spreadsheet::WriteExcel;

    my $tmpfile = sprintf( "/tmp/%d.%d.xls",
        time % 1000, int rand(1000) );

    sub new {
        my $class    = shift;
        my $workbook =
          Spreadsheet::WriteExcel->new($tmpfile)
          or die $!;
        my $worksheet = $workbook->addworksheet('Data');
        bless \$worksheet, $class;
    }

    sub writerow {
        my ( $self, $row ) = @_;
        my $worksheet = $$self;
        for ( 0 .. @$row - 1 ) {
            $worksheet->write( 0, $_, $row->[$_] );
        }
    }

}