sub LoadFile

{

my $map_file = shift;

print "$map_file\n";

my $in_Excel = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application', 'Quit');

my $in_eBook = $in_Excel->Workbooks->open($map_file) || die "Failed to open Workbook $map_file.\n";;

# dies at the last statement

}