Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
use warnings;
...
 {
     die $response->status_line;
 }

Select or download this

DEBUG: .../IO/Socket/SSL.pm:1482: new ctx 42693424
DEBUG: .../IO/Socket/SSL.pm:334: socket not yet connected
...
DEBUG: .../IO/Socket/SSL.pm:1519: free ctx 42693424 open=42693424
DEBUG: .../IO/Socket/SSL.pm:1527: OK free ctx 42693424
500 Status read failed:  at testUA.pm line 29.