Select Code to Download

use warnings;
use strict;
...
for my $sheet (@{$workbook->{Worksheet}}) {
    print "Sheet: ", $sheet->{Name}, "\n";
}

my $workbook = Spreadsheet::ParseExcel::Workbook->Parse($f_to_parse)or
+ die "Unable to open $f_to_parse\n";