Tk::Error: Can't call method "selectionGet" on unblessed reference at C:/Perl64/
site/lib/Tk/DirSelect.pm line 53.
 DirSelect::__ANON__ at C:/Perl64/site/lib/Tk/DirSelect.pm line 53
 Tk callback for .dirselect.frame2.button
 Tk::__ANON__ at C:/Perl64/site/lib/Tk.pm line 250
 Tk::Button::butUp at C:/Perl64/site/lib/Tk/Button.pm line 175
 <ButtonRelease-1>
 (command bound to event)