nomis80 has asked for the wisdom of the Perl Monks concerning the following question:
my $q = CGI->new; unless ($q->https) { # I'm not running under SSL } [download]
Hope this helps...
gav^