#!/usr/local/bin/perl -w
   use strict;
   my $url      = "https//somehost.domain.com/";
   my $url_port = "somehost.domain.com:443";
   my @SSL;

   open( SSL,"| /usr/local/ssl/bin/openssl s_client -connect $url_port");
   print SSL "get $url\n";
   close(SSL);

   foreach (@SSL)
   {
      print;
   }