use IO::Socket::SSL;
my $client = new IO::Socket::SSL("
www.example.com:https");
if (defined $client) {
print $client "GET / HTTP/1.0\\r\\n\\r\\n";
print <$client>;
close $client;
} else {
warn "I encountered a problem: ",
IO::Socket::SSL::errstr();
}
Сделал такую штуку... но она не работет
пишет
I encountered a problem: IO::Socket::INET configuration failed at ssl.pl line 19.