use strict;
use warnings;
use WWW::Curl::Easy;

my $curl = new WWW::Curl::Easy;

$curl->setopt(CURLOPT_URL, 'http://cnn.com');

my ($r, $b, $h) = get_response($curl);

print "retcode = $r\n";
print "body = $b\n";

sub get_response {
  my ($curl) = @_;
  my ($body, $head);
  open(my $body_fh, ">", \$body);
  open(my $head_fh, ">", \$head);

  $curl->setopt(CURLOPT_WRITEDATA, $body_fh);
  $curl->setopt(CURLOPT_HEADERDATA, $head_fh);

  my $retcode = $curl->perform;

  return ($retcode, $body, $head);
}
[download]

Yeah, that makes sense, but I didn't think of it. BTW I really don't think my questions was unclear and you answered it perfectly.

It was "unclear" to the extent that you didn't show the code. Perl monks are generally Perl programmers and Perl programmers are encouraged to be "lazy". One way that manifests itself is expecting the OP to provide all required information to frame their question in a clear an concise way. Following a link is often too much work and may be dangerous - it could lead to Wikipedia and waste hours of time for example.

More seriously: including a link is frowned on because links can be transient. It is much better to provide your sample code in the node because all the context for the question has the same life time - the life time of the node.

---

Perl is environmentally friendly - it saves trees

It might help us to show us the program you have, or a small relevant portion of it. Tell us what it's doing now, and how that's different from what you want it to do. It might help for you to read How do I post a question effectively? and/or PerlMonks FAQ and/or How (Not) To Ask A Question

I didn't post my code because it's exactly the same as the link I provided, but here it is:

my $response_data;
my $response_header;
open(my $RD, ">", \$response_data);
open(my $RH, ">", \$response_header);

$curl->setopt(CURLOPT_WRITEDATA, $RD);
$curl->setopt(CURLOPT_HEADERDATA, $RH);

$curl->perform;
print "Response header: $response_header\n";
print "Response body: $response_body\n";
[download]

I want $response_data to be rewritten every time I run curl->perform, is there a way to do that?