Select Code to Download

use Tk;
use strict;
...
    my $DirSelected = $mw->chooseDirectory(-initialdir => "~", -title 
+=> 'Choose directory to save your backup');
    print qq{You chose to save as "$DirSelected"\n} if $DirSelected;
}