sub MakeID {
# Seed the random generator
	srand($$|time);
	$sessionID=int(rand(60000));
# pack the time, process id, and random $session into a
# hex number which will make up the sessin ID
	$session=unpack("H*", pack("Nnn", time, $$, $session));
	return $session;
} #Make ID