sub generate_Token {
    my $tok = sha1_hex( time * 2, __PACKAGE__, rand, $ENV{HTTP_USER_AGENT} // '',
        time, $ENV{REMOTE_IP} // '', time );
    return $tok;
}