use strict;
use IO::File;

my $fh = new IO::File("> qqq.txt");
defined($fh) || die "Cannot open qqq.txt\n";
#binmode($fh);

my $CRLF = "\015\012";
print $fh "test",$CRLF;
close $fh;

##</code><code>##

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

##</code><code>##

    my $content = $response->content;

    # Second-chance attempt for a broken Windows Frontier
    # service, which puts good results into client-junk.
    if (!$content) {
       my $headers = $response->headers;
       my $cjunk = $headers->{"client-junk"};
       if (defined $cjunk) {
          # Reconstitute the result.
          $content = join("\n",@$cjunk);
       }
    }