use File::Set;
$FS = File::Set->new();
$FS->add('/directory');
$FS->list("", \$callback);
$callback = sub { print "Test\n" };

##</code><code>##

list($Context, $Callback, $ErrorHandler)