Mojo::IOLoop and Mojo::Client

gistfile1.pl

#!/usr/bin/env perl
use lib 'lib';

use Mojo::IOLoop;
use Mojo::Client;

my $loop   = Mojo::IOLoop->new;
my $client = Mojo::Client->new; $client->ioloop( $loop );

foo();
bar();

$loop->start;

sub foo {
	warn 'Foo...';
	
	$loop->timer(30 => sub { foo() });
}

sub bar {
	warn 'Bar...';
	
	for (1..10) {
		$client->post_form('http://ya.ru/', sub {
			my($self, $tx) = @_;
			warn $tx->res->code eq '200' ? 'OK' : 'ERROR';
		});
	}
	
	$client->start;
	
	$loop->timer(20 => sub { bar() });
}