$newhash = session::create_hash($sha, $userid, $come_from, $go_to, $sessionid, $time, $hash_secret); #### sub create_hash{ my ($self, $from, $to, $time) = @_; unless($time){ $time = time(); }