Select Code to Download

if ($tk{dir_tree}-> chdir ($dr{path}))
{
...
{
    Win32::MsgBox(“$^E”);
}

require 5.006;

...
    $tk{dir_tree}-> chdir ($dr{path});    
    ShowServer($dr{path});}