for ( 1..100 ) {
    ...
    ...
    while ( $cur_time - $last_time < 0.25 ) # at least seconds from last http request
        { $cur_time = ... }
    $last_time = $cur_time;
    $client->POST(...);
}