use Gtk2 qw (init');
use IO::Socket;

##</code><code>##

  my $conn = IO::Socket::INET->new(PeerAddr => $host, PeerPort => $port, Proto => 'tcp') or popup_err(1);