isleofmax

C:\ModuliPerl6\File-Find\lib\File>panda install BSON
==> Fetching BSON
==> Building BSON
Compiling lib\BSON\ObjectId.pm to mbc
Compiling lib\BSON.pm to mbc
==> Testing BSON
Saw 1 call to deprecated code during execution.
================================================================================

%samples = itemized hash called at:

isleofmax

use v6;
use File::Find;

my $dir = 'C:\Users\massimo\Videos';
my @files := find(dir => $dir);

for @files -> $file {
    next if ($file ~~ :d);
    
    print_video_file($file.Str);