$dst_server = IO::Socket::INET->new(
        Proto => "tcp",
        PeerAddr => "stream.foo.com",
        PeerPort => "554");