original code

gistfile1.txt

# login
my $tx1 = $ua->get($urlbase->clone->path('/admin/login'));
my $tx2 = post_form_by_dom($tx1->res->dom->at('#form'), $ua, $urlbase, {
    '_method' => 'POST',
    'data[AdminUser][username]' => 'test',
    'data[AdminUser][password]' => 'test',
});

$tx2->res->dom->find('.container td a')->each(sub($a, $) {
    my $url = $urlbase->clone->parse($a->attr('href'));
    my $size = $a->text();
    my $expected = $size > 100 ? 100 : $size;
    my $tx3 = $ua->get($url);
});

simplified a little.