TRY: for (1 .. $maxretries) {
		eval {
			$sock ||= outconnect() || die $diag=$!;
			my $lw = syswrite($sock, $$data);
			die $! unless defined $lw and $lw == length($$data);
			$$data = '';
		}; if (my $e = $@) {
			$diag ||= $e;
			$sock = undef;
			next TRY;

##</code><code>##

Exception: Broken pipe at /root/iotest.pl line 31.