...

my $outFileName = "...";

open my $outFile, '>', $outFileName or die "Failed opening $outFileName: $!";
$response->is_success ?
  print SoutFile $response->content :
...
close $outFile;