Select Code to Download

sub get_all_data{
    my $max_rows = 5000;
...

return $raResults;
}

  $p = Project->new_project($id);
  $cursor = $p->get_all_data;
...
        qq{$row->[1]\$\$\$\$\n};
        } if defined $row->[1];
}