Select Code to Download

my $range = $worksheet -> UsedRange
    or die "No UsedRange found for $worksheet";
...

my $col = $last_col = $findresult -> {Column};
defined $col or die "No col found from $findresult";