Select Code to Download

use warnings;
use strict;
...
my $fs = File::Set->new();
$fs->add('/some/dir');
$fs->list('',\&cback);