my $Excel = Win32::OLE->GetActiveObject('Excel.Application')||
die "You gotta have it open first!!\n";
my $Sheet = $Excel->{ActiveSheet};