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

##</code><code>##

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

##</code><code>##

# 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";

##</code><code>##

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