wenn ich dich richt verstanden habe mmöchtest du eine session id erzeugen
verwende diese methode:
sub create_session_id()
{
my $self = shift;
my $session_id = int(rand(6000000));
$session_id = unpack("H*", pack("Nnn", time, $$, $session_id));
return $session_id;
}
gruss bleau