use Proc::Governor();

    my $gov = Proc::Governor->new();

    while( ... ) {
        $gov->breathe();
        ... # Use resources
    }

    while( ... ) {
        my $res = $gov->work( sub {
            ... # Use Service
        } );
        ...
    }