Recursive directory size count

dircount.pl

#!perl6
sub MAIN(Str $dir where .IO.d) {
    dircount($dir);
}

multi sub dircount(Str $dir where .IO.d) {
    my $count = [+] dir($dir).grep(none(<. ..>)).map: { dircount("$dir/$^item") };
    say "$dir: $count";
    return $count;
    CATCH { say "$dir: ERROR($!)"; return 0 };
}
multi sub dircount(Str $dir where .IO.f) { return 1 }
multi sub dircount(Str) { return 0 }