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^