Select Code to Download

#!/usr/bin/perl -l

sub revlist {
...
my $foo = revlist(@ARGV);

print while local $_ = $foo->();