Select Code to Download

Gtk2->init( \@ARGV );

Gtk2->init();

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

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

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