#!/usr/bin/perl -w
use diagnostics;
use strict;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';

my $file = shift(@ARGV);
my $Excel = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application', 'Quit');
my $Book = $Excel->Workbooks->Open($file);

##</code><code>##

Win32::OLE(0.1502) error 0x800a03ec      in METHOD/PROPERTYGET "Open" at c:\perl\excel\TestRead.pl line 10