my $errorcount = 0; my @errors; for (1..$niterations) { my $res = $ua->request($req) unless($res->is_success) { $errorcount++; push(@errors, $res->status_line); } $errorcount++ unless($res->is_success); sleep($sleeptime); } die "ERRORS:\n\t" . join("\n\t", @errors) . "\n" if($errors > $maxerrors); exit(0);