Thanks for the article. The following code doesn't work on my machine:

     my @edges = qw (xlEdgeBottom xlEdgeLeft xlEdgeRight xlEdgeTop xlI
+nsideHorizontal xlInsideVertical);
     $range = "b1:c56"; 
     foreach my $edge (@edges){
     with (my $Borders = $Sheet->Range($range)->Borders(eval($edge)), 
             LineStyle =>xlContinuous,
             Weight => xlThin ,
             ColorIndex => 1);
     }
[download]

I'm using ActivePerl 5.8.7. No error messages were encountered. Thanks in advance.