my $client = IO::Socket::INET->new(
                        PeerAddr => '$host',
                        PeerPort => '$port',
                        Proto => 'tcp',)