Gtk2->init( \@ARGV ); 

##</code><code>##

Gtk2->init();

##</code><code>##

$there is no longer a GSignal !!
#Gtk2::GSignal->connect( $button_poll, "clicked", \&poll_host ); 
#Gtk2::GSignal->connect( $button_exit, "clicked", \&exit_app );
#SHOULD BE 
$button_poll->signal_connect("clicked", \&poll_host );
$button_exit->signal_connect("clicked", \&exit_app );

##</code><code>##

sub exit_app {
    #Gtk2->quit(); 
    Gtk2->main_quit();
    return 0;
}

##</code><code>##

#$buffer->set_text( $buff, -1 ) if ( $buff ne '' );
$buffer->set_text( $buff ) if ( $buff ne '' );
....
....
#$buffer->set_text( $msg, -1 );
$buffer->set_text( $msg);