Select Code to Download

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

use File::Basename 'dirname';
my $dir = '/home/bla­/public_ht­ml/blabla'­;
...
        if  '/' eq $dir;
    $dir = dirname( $dir );
}