Help for this page

Select Code to Download

Select or download this

#!perl

...
   my $fetcher = sub {@files };
   ($gatherer, $fetcher);
}