$lb -> bind('<Double-1>'=> sub {
        my $current_ip =  $_[0]->get($_[0]->curselection);
        $txt_scroll->delete( '1.0', 'end' ); # empty first, than insert
        $txt_scroll->insert('end',"SELECTED IP : $current_ip\n");
                },
        );