perl win32 ole excel misc

#foreach Cell In [A1:Z100]
#    If Cell.Borders(xlEdgeTop).ColorIndex = xlAutomatic Then Cell.Borders(xlEdgeTop).ColorIndex = 2
#    If Cell.Borders(xlEdgeBottom).ColorIndex = xlAutomatic Then Cell.Borders(xlEdgeBottom).ColorIndex = 2
#    If Cell.Borders(xlEdgeRight).ColorIndex = xlAutomatic Then Cell.Borders(xlEdgeRight).ColorIndex = 2
#    If Cell.Borders(xlEdgeLeft).ColorIndex = xlAutomatic Then Cell.Borders(xlEdgeLeft).ColorIndex = 2
#Next Cel


#my @edges = qw (xlInsideHorizontal xlInsideVertical);
#$range = "b2:r2000";
#foreach my $edge (@edges)
#{
#  with (my $Borders = $Sheet->Range($range)->Borders(eval($edge)),
#          LineStyle =>xlContinuous,
#          Weight => xlThin ,
#          ColorIndex => 1);
#