sub callback {
    my ($data,$pointer)=@_;
    $params{'data'} .= $data;
    return length($data);
}