Select Code to Download

while($i < 20000000) {
    @objects = getObjects(); 
...
{
    my $obj = shift;
}

--------------------------------

...
return 1;

# ex: my $obj = new Obj("x", \@arrayOfObjects);