use warnings;
use strict;

my $testDir = '.';

checkDir($testDir, '-w');
checkDir($testDir, '-r');

sub checkDir {
    my ($dir, $perm) = @_;
    
    if (eval "$perm '$dir'") {
        print "Can $perm $dir\n";
    } else {
        print "Can $perm $dir\n";
    }
}