Select Code to Download

#!/usr/bin/env perl
use Tk; use Env; use Tk::DirSelect;
use diagnostics;
...
my $new_directory = $ds->Show($last_directory);
if ($new_directory ne '') {$last_directory = $new_directory}
}

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::Button::butUp at C:/Perl64/site/lib/Tk/Button.pm line 175
 <ButtonRelease-1>
 (command bound to event)