Select Code to Download

use Tk;
use strict "vars";
...
my $dir = $ds->Show();
print "dir <$dir>\n";
MainLoop;

sub configure
{
...
   return $results;
  }
}