#!/usr/bin/env perl

use strict;
use warnings;
use IO::All;
use feature qw(say);

my $dir = shift || q(.);

my $io = io($dir);

say for $io->all(0);