# Following your original code snippet
my $filename = 'logfile.bz2';
open ( OF, '>', $filename ) || die "Can't open $filename locally";
print OF $response->content;
close OF