Select Code to Download

    my $bottomRight = (split (/:/, $self->worksheet->UsedRange->addres
+s(0,0)))[-1];
    my ($colNameMax, $rowNumMax) = $bottomRight =~ /^([A-Z]+)(\d+)/;
    $self->lastRow( $rowNumMax );
    $self->maxCol( $colNameMax );

my $rowData = $sheet->Range("A$row:" . $self->maxCol . $row)->{Value};

foreach my $value (ref $rowData ? reverse @{ $rowData->[0] } : $rowDat
+a) {

my $fn = eval "sub {
    my \@F = \@_;
    no warnings 'uninitialized';
    $perlCode
}";
die $@ if $@;