sub Communication::new {
    my $class = shift;
    my ($addr, $port) = @_;

    my $socket = IO::Socket::INET->new(
        Proto    => "tcp",
        PeerAddr => $addr,
        PeerPort => $port,
    ) or die "couldn't connect: $!";

    $socket->autoflush();
    return bless $socket, $class;
}