#!/usr/bin/perl

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

#$Win32::OLE::Warn = 3;                                # die on errors...

# get already active Excel application or open new
my $Excel = Win32::OLE->GetActiveObject('Excel.Application')
    || Win32::OLE->new('Excel.Application', 'Quit');  

# open Excel file
my $Book = $Excel->Workbooks->Open("Reten_template.xls"); 


my $Sheet = $Book->Worksheets('JUN05');