use MD5;
my $MD5 = new MD5();
$MD5->add($$ . rand() . time() . (-A '/tmp'));
my $SessionID = $MD5->hexdigest;