7 lines
177 B
Perl
7 lines
177 B
Perl
use File::Spec::Functions qw(catfile rootdir);
|
|
# here
|
|
print -e 'input.txt';
|
|
print -d 'docs';
|
|
# root dir
|
|
print -e catfile rootdir, 'input.txt';
|
|
print -d catfile rootdir, 'docs';
|