Help for this page

Select Code to Download

Select or download this

 #!/usr/bin/perl
use strict;
use IO::Socket::SSL qw(debug3);
...
print $client "GET /rest/
               openid:1234";
print <$client>;