#!/usr/bin/perl

use common::sense;
use AnyEvent::HTTP;
use Data::Dumper;

sub do {
    my $iter = shift;

    my $cv = AnyEvent->condvar;
    $cv->begin;
    http_get
        'https://imasheep.hurrdurr.org/category/about.html',
        timeout => 2,
        # out-comment to get the even/odd behavior
        persistent => 0,
        sub {
            my ($body, $hdr) = @_;
            say "$iter $hdr->{Status}";
            unless ($hdr->{Status} == 200) {
                warn Data::Dumper->Dump([$hdr],['hdr']);
            }
            $cv->end;
        }
    ;
    $cv->recv;
}

for (1..4) {
    &do($_);
    sleep(5);
}