#!/usr/bin/perl
use strict;
use warnings;
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Excel';

my $excelfile = 'd:\\test\\Korea_Checklist.xls';

my $Excel = Win32::OLE->new( 'Excel.Application', 'Quit' );
$Excel->{'Visible'} = 1;
my $Book = $Excel->Workbooks->Open("$excelfile") or die "$!";