Select Code to Download

use Encode qw( decode from_to );

...
# the content encoding is detected.
open my $fh, '>:encoding(iso-8859-5)', $qfn;
print $fh $response->decoded_content;

my $file = $response->content;

my $file = $response->decoded_content;

my $file = decode('windows-1251', $response->content);