view release on metacpan or  search on metacpan

eg/run_1.pl  view on Meta::CPAN

					say $bytes;
					say "-" x 80;
				}
			);
			$stream->on(
				close => sub {
					my $stream = shift;
					say "close $handle!";
				}
			);
			$stream->on(
				error => sub {
					my ( $stream, $err ) = @_;
					say "error at $handle!";
				}
			);

		}

	  }

);

=pod
my $timeout;
$timeout = Mojo::IOLoop->timer(
	3 => sub {
		my $loop = shift;

		say "Timeout!";
		$force_close = 1;

		for my $stream (@streams) {
			$loop->remove($stream);
		}
	}
);
=cut

my $interval;
$interval = Mojo::IOLoop->recurring(
	1 => sub {
		my $loop = shift;

		return unless defined $cmd;

		if ( $cmd->is_terminated or $force_close ) {

			# the handles are not closed yet
			# but $cmd->exit() et al. are available
			say "process " . $cmd->pid . " has terminated";

			# done
			$cmd->close;

			# Stop the process watchdog
			$loop->remove($interval);

		}
		else {
			say "Still alive!";
		}
	}
);

# Start event loop if necessary
Mojo::IOLoop->start unless Mojo::IOLoop->is_running;

=cut