sub callback {
   my ($data, $response, $protocol) = @_;
   print $fh $data;
   ...
}