my $q = CGI->new;

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