use Mojo::Base -strict, -signatures;
use Mojo::IOLoop;

Mojo::IOLoop->next_tick(sub ($loop) {
	say time-$^T, "s Loop PID is $$";
	for my $i (0..1) {
		say time-$^T, "s Start of loop $i";
		$loop->subprocess->run_p(
			sub ($j) {
				say time-$^T,
					"s Hello, from loop $i (arg $j) in PID $$!";
				sleep 2;
				say time-$^T, "s Good bye, from PID $$!";
				return "Return value of $i";
			}->($i)
		)->then(sub ($result) {
			say time-$^T, "s Result from loop $i: $result";
		})->catch(sub ($err) {
			say time-$^T, "s Subprocess error: $err";
		});
		say time-$^T, "s End of loop $i";
	}
});
Mojo::IOLoop->start;