$sock = IO::Socket::SSL->new(
  PeerAddr => 'myserver.com',
  PeerPort => '443',
  SSL_verify_mode => 'SSL_VERIFY_NONE')
  || warn "There was a problem: ".IO::Socket::SSL::errostr();


##</code><code>##

sub senddata
{
  if ($debug) { print ">> @_"; }
  print $sock @_;
}

##</code><code>##

$contlen=length($content);
&senddata("POST /login.aspx HTTP/1.1\r\n");
&senddata("Host: myserver.com\r\n");
&senddata("Connection: keep-alive\r\n");