my $gov = Proc::Governor->new( {
        maxPercent  => 70,
        working     => 1,
    } );
    my $redis = Redis->new(server=>...);
    while( ... ) {
        $gov->pulse( 20 );
        $redis->...;
    }