5 lines
107 B
Perl
5 lines
107 B
Perl
|
for my $prefix (qw( ./ / )) {
|
||
|
|
mkdir "${prefix}docs";
|
||
|
|
open my $FH, '>', "${prefix}docs/output.txt";
|
||
|
|
}
|