Help for this page
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:");