Select Code to Download

my $currentDir = "D:/p/";
my $dirTreeFrame = $mainwin->Frame;
$dirTreeFrame->pack();
...
                                -width  => 35,
                                -height => 35,
                                -command=> sub {doCreate($currentDir)}
+);