my $s = new IO::Socket:SSL("$registrar:https") or die "Couldn't connect: err". &IO::Socket::SSL::errstr();