use strict;
use warnings;

use Ox::File;

&Ox::File::enum(
   dir         => "C:\\",
   depth       => -1, # komplett rekursiv
   callback    => sub {
      my ($filename) = @_;
      print "$filename\n";
   }
);