Select Code to Download

    for($r = $wks->{MinRow}; $wks->{MaxRow} && $r <= $wks->{MaxRow}; $
+r++) {
        if(cell($wks,$r,0) !~ /(group|category|project|client)/i)     
+ { next; }
        if(cell($wks,$r,0) =~ /group/i)    { $group=    cell($wks,$r,1
+); next; }
        if(cell($wks,$r,0) =~ /category/i) { $category= cell($wks,$r,1
+); next; }
        if(cell($wks,$r,0) =~ /project/i)  { $project= cell($wks,$r,1)
+; $client= "0"; }
        if(cell($wks,$r,0) =~ /client/i)   { $client=  cell($wks,$r,1)
+; }

# Utility function to safely look inside of a Cell
sub cell {
...
        }
    return "";
    }

#!/usr/bin/perl -w 
use strict;
...

    my $workbook2= $parse_excel->Parse("data/dasnyFootnotes.xls");
        print "Maxrow b: ", 1 + ${$workbook2->{Worksheet}}[0]->{MaxRow
+}, "\n";