http://www.perlmonks.org?node_id=188957


in reply to Knowing the scheme

If you are using CGI.pm: 
my $q = CGI->new;

unless ($q->https) {
    # I'm not running under SSL
}

[download]
Or you could check $ENV{HTTPS}

Hope this helps...

gav^

In Section Seekers of Perl Wisdom