Help for this page
my ($accessToken, $appId, $userId) = (shift, shift, shift); use threads; use Thread::Queue; ... # terminate. $_->join() for @thr;
use WWW::Curl::Easy; use WWW::Curl::Form;