sub create_sid {
  my $sid;
  #create a random SID
  $sid = rand(20)*rand(20);
  #my $time = time();
  $sid .= time/(int(rand(10)+1));
  #print "$sid";
  $sid = md5_hex($sid);
  return $sid;
}