#!/usr/bin/perl -w

    use strict;
    use Cwd;
    use Win32::OLE;


    my $application = Win32::OLE->new("Excel.Application");
    my $workbook    = $application->Workbooks->Add;
    my $worksheet   = $workbook->Worksheets(1);


    my @data = ('maggie', 'milly', 'molly', 'may');

    $worksheet->Range('A1:D1')->{Value} = \@data;


    $workbook->SaveAs({FileName => cwd() . '/test.xls'});
    $workbook->Close;