Select Code to Download

use Tk;
use Tk::DirTree;
use Cwd;
...
if ($ok == 1) { warn "The resulting directory is '$curr_dir'\n"; }

__END__

$d->chdir("c:");
$d->chdir("d:");
$d->chdir("e:");