#!C:/Perl/bin/perl.exe
use strict;
sub Report{
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Excel';
$Win32::OLE::Warn = 3;  # die on errors...
my $Excel = Win32::OLE->GetActiveObject('Excel.Application')
    || Win32::OLE->new('Excel.Application', 'Quit');
my $Book = $Excel->Workbooks->Add();
my $Sheet = $Book->Worksheets(1);
$Sheet->Cells(1,1)->{'Value'}="Hello";
$Sheet->Cells(1,2)->{'Value'}="Excel Report";
$Book->SaveAs("c:\\tmp\\test_graph123.xls");
$Book->Close();
$Excel->Quit;
}