/usr/bin/denzil => OK
/home/denz/temp => Fail

##</code><code>##

/home/jessica/temp/perl => No Permission

##</code><code>##

my $per = `ls $dir`;

if($per =~ /denied/){

// statement

##</code><code>##

my $per = "ls $dir";
eval($per) or $var =1;

if($var){
     //statement