Try to use CGI::SSI or Apache::SSL if your scripts run under mod_perl.

      
--------------------------------
SV* sv_bless(SV* sv, HV* stash);