Select Code to Download

    my $items = [{
        name => 'Arbitrary menu name',
...
  $callback->({
    items => $items
    });

opendir DIR, $currentDir or die "cannot open dir $currentDir: $!";
my @file= readdir DIR;
...
  $callback->({
    items => $items
  });