Select Code to Download

  if ($log->is_trace) {
    require Data::Dumper;
...
    $log->debugf('Headers: %s', Data::Dumper::Dumper( $headers ));
    $log->debugf('Data:    %s', Data::Dumper::Dumper( $data ));
  }