open F, $outfile or die $!;
binmode F;
print F $response->content;
close F;