Select Code to Download

use strict;
use Test::More tests => 1;
...
my $restored_response = HTTP::Response->parse( $stored_as_file );

is $stored_as_file, $restored_response->as_string, "->as_string() is i
+dempotent";

binmode $fh;

open my $fh, ">", $temp_response_name or die "Couldn't create '$temp_r
+esponse_name': $!";