sub localdblclick
    {
        my $self = shift;
        my $file;

        my @list = $self->{'locallist'}->infoSelection(); # dies ist Zeile 211
        foreach (@list)
        {
            $file = $self->{'locallist'}->itemCget($_, 0, -text);
        }

        #my $data = $_[0];
        print "Double-click on left list at file\n";
    }

Tk::Error: Can't use string ("6") as a HASH ref while "strict refs" in use at pr
j/ftpdialog.pm line 211.
 prj::ftpdialog::localdblclick at prj/ftpdialog.pm line 211
 prj::ftpdialog:: at prj/ftpdialog.pm line 85
 (command bound to event)