Select Code to Download

use strict;
use warnings;
...
my @results;
my $iter = derange(@ARGV);
print "@results\n" while @results = $iter->();