my ($headers, $body) = ('','');
    
    use WWW::Curl::easy;
    my $curl = WWW::Curl::easy->new();
    my $CURLcode = $curl->setopt(CURLOPT_WRITEFUNCTION, \&callback);
    $CURLcode = WWW::Curl::easy::setopt($curl, CURLOPT_URL, $broker_url);
    $CURLcode .= WWW::Curl::easy::setopt($curl, CURLOPT_HEADER,\$headers);
    $CURLcode .= WWW::Curl::easy::setopt($curl, CURLOPT_POSTFIELDS, $post_vars);
    $CURLcode .= WWW::Curl::easy::perform($curl);
    WWW::Curl::easy::cleanup($curl);