Select Code to Download

use strict;
use warnings;
...
or die("Could not open $outfile for writing: $!\n");

print $out_fh $req->content;