use Win32::OLE;
use Win32::OLE qw(in with);
use Win32::OLE::Variant;
use Win32::OLE::Const 'Microsoft Excel';

sub LoadFile
{
my $map_file = shift;
print "$map_file\n";
my $in_Excel = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application', 'QUIT');
print "$in_Excel  \n";
$in_Excel->{DisplayAlerts}=1;	#0 is hide alerts
my $in_eBook = $in_Excel->Workbooks->Open($map_file);
print "$in_eBook  \n";

$in_eBook->SaveAs({Filename =>'D:\Perl Programs\OLE Progs\file11.xls',
              FileFormat => xlWorkbookNormal});  
$in_eBook->Close();
$in_Excel->Quit();
} 
&LoadFile('D:\Perl Programs\OLE Progs\file.xls');