{

unless (lc($::cgi->https()) eq 'on')
{
$string = 'https://' . $::cgi->server_name() . $::cgi->url(absolute=>1) . '?whocalledme=' . $whocalledme;
print $::cgi->redirect($string);
exit 0;

}