Help for this page

Select Code to Download

Select or download this

my $client = IO::Socket::SSL->new(
   # where to connect
...
# send and receive over SSL connection
print $client "GET / HTTP/1.0\r\n\r\n";
print <$client>;