my $pane = $pop->Scrolled(
        "Pane", -scrollbars => 'e',
        -bg => 'white',
        -width=>$config{PrivatChatWidth},
        -height=>240
    )->pack(-anchor => 'sw');
    my $text;
    my $entry= $pop->Entry(-textvariable => \$text,-width => "70")->pack();
    $entry->focus();
    $entry->bind("<Return>", sub {
        $text = substr($text, 0,10),
        $pane->Label(-text => "$text",
            -bg => 'white'
        )->pack( -anchor => 'sw', -side => 'top') if $text ne '';
        #send_entry($_[0], $text),
        $text = '';
        $pane->update();
    });