#!/usr/bin/env perl6


my $directory = '/data';

my $dh = opendir( $directory ) orelse die $!;
    
for $dh.readdir {
    .say;
}

$dh.closedir;