Real Life Example
file: code/validad/fill_campaigns 36: while ($cnt <= $total) { 37: my $type = $types[$cnt % scalar @types]; 38: say "creating $cnt: $type"; 39: my $campaign = $f->create($type); 40: $f->publish($spreader, $campaign); 41: 42: $cnt++; 43: }