use Win32;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
use Win32::OLE::Variant;
use Win32::OLE::NLS qw(:LOCALE :DATE);
use Win32::OLE;
use Win32::OLE::Const;
$Win32::OLE::Warn = 3; # die on errors...

  $Constant = Win32::OLE::Const->Load('Microsoft Excel');
  $Excel = Win32::OLE->new('Excel.Application', sub {$_[0]->Quit;}) ||
  die "Error launching MS Excel ".Win32::OLE->LastError(1);          
  $Excel->{Visible} = 0;
 
$Book = $Excel->Workbooks->Add; 

my $filename="C:\\perlscripts\\test.xls";  
$Book->SaveAs($filename);
$Book->Close({SaveChanges=>0});