Select Code to Download

use strict;
use IO::File;
...
my $CRLF = "\015\012";
print $fh "test",$CRLF;
close $fh;

my $CRLF = "\015\012";   # "\r\n" is not portable

    my $content = $response->content;

...
          $content = join("\n",@$cjunk);
       }
    }