Select Code to Download

#!/opt/perl/bin/perl -w
use strict;
...
while (my @items = $it->()) {
    print "@items\n";
};