Help for this page

Select Code to Download

Select or download this

#/usr/bin/perl

...
while (my @set = $i->()) {
   print(join(',', @set), "\n");
}