$condvar->lock();
http_get "http://blah", sub { $condvar->unlock();
     print $_[1] };

##</code><code>##

sub timer_callback {
    $condvar->lock();
    # ...
    $condvar->unlock();
}