Select Code to Download

my $Book = $Excel->Workbooks->Open("Reten_template.xls") || die "can't
+ open file";

for (1..$Book->Worksheets->Count) {
    print "$_: <", $Book->Worksheets($_)->Name, ">\n";
}

# open Excel file
use File::Spec;
my $file = File::Spec->rel2abs("Reten_template.xls");
my $Book = $Excel->Workbooks->Open($file) or die "can't open $file: $!
+\n";

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