RosettaCodeData/Task/Create-a-file/Perl/create-a-file-1.pl
Ingy döt Net 764da6cbbb CDE
2013-04-10 16:57:12 -07:00

9 lines
217 B
Raku

use File::Spec::Functions qw(catfile rootdir);
{ # here
open my $fh, '>', 'output.txt';
mkdir 'docs';
};
{ # root dir
open my $fh, '>', catfile rootdir, 'output.txt';
mkdir catfile rootdir, 'docs';
};