Make your own free website on Tripod.com
ssl_client.pl

 
perldoc IO::Socket::SSL for details ;)

 1  #!/usr/bin/perl -w
 2
 3  use IO::Socket::SSL;
 4
 5  my $client = new IO::Socket::SSL(
 6                  PeerAddr=>"129.158.224.128",
 7                  PeerPort=>"8443",
 8                  SSL_use_cert => 1);
 9
10  if (defined $client) {
11          print $client "GET / HTTP/1.0\r\n\r\n";
12          print <$client>;
13          close $client;
14  } else {
15          warn "I encountered a problem: ",
16               &IO::Socket::SSL::errstr();
17  }