connect(S, $destaddr) ||
	die "Can't connect to $hostname: $!\n";
