my $button = Gtk2::Button->new ('Quit');
  $button->signal_connect (clicked => sub { Gtk2->main_quit });

##</code><code>##

# old line Gtk2::GSignal->connect($button_poll,"clicked", \&poll_host);
$button_poll->signal_connect (clicked => \&poll_host);