rm_rf() for Perl 6

gistfile1.pl

use v6;
use File::Find;

sub rm_rf(*@files) is export {
    for @files -> $path {
        for find(dir => $path).map({ .Str }).reverse -> $f {
            $f.IO.d ?? rmdir($f) !! unlink($f);
        }
        rmdir $path;
    }
}

rm_rf('p/a/t/h');