sub connect {
    my $buffer = shift;
    $buffer->set_text( "testing the text box and it must be working");
}