Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
    use warnings;
    ...
     {
         die $response->status_line;
     }
    
  2. 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.