Вариант?
my $dir="C:/Perl/";
stat($dir);
print "Readable\n" if -r _;
print "Writable\n" if -w _;
print "Executable\n" if -x _;