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