my $dir = '/home/bla­/public_ht­ml/blabla'­;
my $isDir = -d $dir;
if(  $isDir  ) {
    print "Found directory: $dir\n";
} elsif(  defined $isDir  ) {
    print "Found non-directory: $dir\n";
} else {
    print "Can't stat($dir): $!\n";
}