Select Code to Download

do { require MIME::Base64; my $a = bless({ _content => MIME::Base64::d
+ecode("ICAKICAKPCFET0NUWVBFIGh0bWw+PGh0bWwgPjxoZWFkPj...PC9odG1sPgog"
+)
, _headers => bless({ "::std_case" => { "client-date" => "Client-Date"
...
, "URI::http"), _uri_canonical => 'fix', }
, "HTTP::Request"), }
, "HTTP::Response"); $a->{_request}{_uri_canonical} = \${$a->{_request
+}{_uri}}; $a; }

do { require MIME::Base64; my $a = bless({ _content => MIME::Base64::d
+ecode("ICAKICAKPCFET0NUWVBFIGh0bWw+PGh0bWwgPjxoZWFkPj...PC9odG1sPgog"
+)
, _headers => bless({ "accept-ranges" => "bytes"
...
, "URI::http"), _uri_canonical => 'fix', }
, "HTTP::Request"), }
, "HTTP::Response"); $a->{_request}{_uri_canonical} = \${$a->{_request
+}{_uri}}; $a; }