#use strict;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
use vars qw ( $OUT_Var);
$Win32::OLE::Warn = 3; # Die on Errors.
$OUT_Var	= getcwd."\\"."Check.xls";
$OUT_Var	=~ s/\//\\/g;
#my $excelfile = $OUT_Var;

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

   $Excel->{DisplayAlerts}=0;

my $Book = $Excel->Workbooks->Open($OUT_Var) or die
my $Book = $Excel->Workbooks->Add() or die Win32::OLE->LastError();
$Excel->{Visible} = 1;