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";
}

##</code><code>##

use File::Basename 'dirname';
my $dir = '/home/bla­/public_ht­ml/blabla'­;
my $isDir;
while(  ! defined $isDir  ) {
    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";
    }
    last
        if  '/' eq $dir;
    $dir = dirname( $dir );
}