use Win32::OLE;

$Excel = Win32::OLE->new('Excel.Application') or die "oops\n";

$Excel->Workbooks->Open({FileName => "D:\\Perl\\bin\\search tool\\test.xls"}) || die ("$!\n");

$Excel->{Visible} = 0;

$Excel->Quit;