Select Code to Download

$chat_buffer->signal_connect(insert_text => sub {
        $chat_textview->scroll_to_mark( $chat_buffer->get_mark('end'),
+ 0.0, TRUE, 0, 0.5 );
    });

#!/usr/local/bin/perl -w
use strict;
...
    
    print "<$them> $msg\n";
}