Select Code to Download

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

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