my $sock = new IO::Socket::INET(
	LocalHost => $address,
	LocalPort => 0,
	Proto     => 'tcp',
	Listen    => 10,
	Reuse     => 1,
);

my $s = $sock->accept;

# how to timeout this?
my $message = <$s>;