use threads; 
async sub {
    print join q/ /, threads->tid, "\n";
    sleep 3;
    return;
};

require WWW::Curl::Easy;
...;
exit 0;