It seems that the Gtk2::Helper is not running after the connection is made. The print in incoming_data "im going" does not appear so it seems like the Helper is not working.

sub connecting {
    # Connect to the IRC server.
    $sock = new IO::Socket::INET(
        PeerAddr => $irc,
        PeerPort => 6667,
        Proto => 'tcp',
    ) or die "Can't connect\n";
    print "hello\n";
    
    $watch = Gtk2::Helper->add_watch( fileno $sock, 'in', \&incoming_d
+ata, $sock );
    # Log on to the server.
    print $sock "NICK $nick\r\n";
    print $sock "USER $login 8 * :CoCoNUE Member\r\n";
    
    $chat_entry->set_editable(1);
    $chat_entry->grab_focus;
    #chat_entry->signal_handler_unblock ($chat_send_sig);
    return 1;
}
[download]