sub set_cookie {
        my $cgi = shift;

        unless ($main::cookie) {
            $main::cookie = $cgi->cookie(
                -name   => $main::cookie_name,
                -value  => $main::cookie_value,
                -expires=> '+1h',
                -path   => $main::path,
                -domain => $main::domain,
            );

            print CGI::redirect(-location => $main::full_url, -cookie => [$main::cookie]);
            exit;
        }
    }