creating an excel file for writing

[amarnathreddy]

#!/usr/bin/perl -w
use strict;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
my $Excel = Win32::OLE->new('Excel.Application', 'Quit');  
my $Book = $Excel->Workbooks->Open("c:/file_excel.xls"); 
my $Sheet = $Book;

I am new to perl.I am trying to create an excel file with the above code, but i am not getting it.Can you help in creating an excel file.

[mohanprasadgutta]

#!/usr/bin/perl -w
use strict;
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Excel';
use Win32::OLE::Variant qw(:DEFAULT nothing);
$Win32::OLE::Warn = 3;
my $excelObj = Win32::OLE->new('Excel.Application', 'Quit');
$excelObj->{'DisplayAlerts'} = 0;
$excelObj->{'AskToUpdateLinks'} = 0;
$excelObj->{'Visible'} = 0;
my $bookObj;
my $sheetObj;
eval
{
    $bookObj = my $Book = $excelObj->Workbooks->Add;
};
if($@)
{
    die "A problem was encountered when creating file.\n";
}
$sheetObj = $bookObj->Worksheets(1);
for my $row (1..10)
{
    for my $col (1..10)
    {
        $sheetObj->Cells($row,$col)->{'Value'} = $row * $col;
    }
}
$bookObj->SaveAs('d:\mohan.xls');
$bookObj->Close();
$excelObj->Quit();