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

my $home = getcwd;
my $xls = "$home/t.xls";

my $excel = Win32::OLE -> GetActiveObject('Excel.Application') ||
            Win32::OLE -> new('Excel.Application', 'Quit');

my $wb = $excel->Workbooks->Add();

my $ws = $wb->Worksheets(1);
my $value = "0200";
$ws->{Name} = "test";
$ws->Cells(1, "A")->{Format} = 'Text';
$ws->Cells(1, "A")->{Value} = $value;

$ws->Cells(2, "A")->{Format}->{Number} = 'Text';
$ws->Cells(2, "A")->{Value} = $value;

$ws->Cells(3, "A")->{NumberFormat} = "Text";
$ws->Cells(3, "A")->{Value} = $value;

$ws->Cells(4, "A")->{TextFormat} = "Text";
$ws->Cells(4, "A")->{Value} = $value;

$wb->SaveAs($xls);
$wb->Close;

$excel->Quit();