Select Code to Download

perl -d -e '
use Net::SSL;
...
my $response = $ua->request($req);
print $response->as_string();
'

SSL_connect:before/connect initialization
SSL_connect:SSLv2/v3 write client hello A
...
    <someItem>
... Some data ...
      <home

package Net::HTTP::Methods;

...
    }
}

main::(-e:8):   $ENV{HTTPS_DEBUG} = 1;
  DB<12> c
...

Length: 1449

main::(-e:8):   $ENV{HTTPS_DEBUG} = 1;
...
  </someList>
</someResponse>

#die "read timeout" unless $self->can_read;