I can't replicate your error message (tried with Tk version 804.028 and 804.027).

Without a selected entry I get "Use of uninitialized value in string ne at ./899028.pl line 30.", which could be fixed by testing

    if(defined $lst->curselection)
    {
    ...
[download]