gistfile1.txt

sub use_skill {
    my $id = gen_new_answer_id();
    $answers->{$id} = sub {
        my ($response) = @_;
        my $skill = choose($response->{skills});
        send('use_skill',$skill);
    }
    send('get', $id, 'skills');
}

sub handle_answer {
    my ($id, $response) = @_;
    my &c = $answers->{$id};
    &c($response);
}