RosettaCodeData/Task/Create-a-file/Perl-6/create-a-file.pl6

for '.', '' -> $prefix {
    mkdir "$prefix/docs";
    open "$prefix/output.txt", :w;
}